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FOREWORD 


Thi« final report proaenta work tbieh wee eondueted for Unglay Reiatneh 
Canton (LaRC) in roeponae to re<ittire*eftta of Contract NASl-l«*8i. tbe fork 
pteaented wei performed by REMTECB, Ine., Huntaville, Alabama and ia entitled 
* 'MINIVER Upgrade Ron The AVID Syetem". The final report eonaiata of three 

volumes. 
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VOLUME 3: EXITS User 1 a and Input Guide 
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Section 1.0 
INTRODUCTION 


The SilTS code described la this document is t thermal analysis tool which 
allows ths user to rapidly predict thermal proteetioa system performance Tot id- 
fenced space ttiaspottation vehicle teentry. Design end weights optimisation 
csn he ecceaplished by repeated analysis within the constraints and gnidelines 
of system performance. 

EXITS is designed to ran interactively on a small or mainframe computing 
system in conjnnction with the LANMIN code. LANMIN^s described in Volume I and 
II is run, given a trajectory* geometry, heating rate methods, etc., to provide 
an input file containing the thermal environment information needed for the body 
points specified. Information flow for this process is depicted in Pigure 1.1. 

The user then calls EXITS in an interactive mode and sets certain input 
parameters, start time, end time, print time, etc. and defines the TPS structure 
by selecting structure types from a menu presented to him* In its present form, 
the menu contains seven different structure types, including an ablator, slab, 
radiation gap, etc. By stacking these structures, the entire TPS is defined and 
a nodal mesh is automatically generated* EXITS thus uses the LANMIN generated 
input file and calculates the temperature history of each node through the 
structure. 

During the calculation, ail of the heats are integrated and printed out. 
These include the eouveeted, reradiated, sensible heat, ablated heat, and sd- 
vseted heat. A total energy balance is made to determine the method's conserva- 
tion. 

EXITS uses an eaplicit (Euler) integration of the energy equation using 
equivalent radiation conductors where internal or reradiation crista. An able- 


Information Flow For Thermal Protection System Analysis 











tlin routine bit been included using a slams, eblster-aubliaer node! *hiuh in- 

olttdes tbs 1 its at heat sad bust required lot tbs moving interline (adverted), 
** or materials with bigb tberasl ©ondnetivity (aluminum, copper, etc.), s ther- 
asllp M tbin M structure bis been included to avoid tbs time step problems ex- 
plicit methods bars »ith these materials. Details of tboaa methods are des- 
cribed in tbe Technical Discussion. Diction II. 

Tbc program atrnetnre. Hot charts, etc. sre given in Section III, De scrip* 
tion o l Program. Each subroutine is described in Section IV, 

Input aud Output data is described iu Seetiona V and VI respectively. 
Finally, conclusions and recommendations are presented in Dectioa VII. A list- 
ing of tbe code ie presented in tbe Appendix, 


Section 2.0 


TECHNICAL DISCUSSION 

This section describes the methods used in calculating the thermal response 
of the TPS structure. A basic energy balance performed at eaoh node during the 
time marching nelng an enplicit Euler integration forms the basis of the code. 
Special methods nre used to deseribe the response of the ablstor-subllmer agd 
thermally thin structures. However, when complicated structures are used, the 
program logic branches off and constructs equivalent thermal networks, and from 
solutions of these networks, equivalent thermal conductance is computed and 
placed into the primary thermal network. 

Presently. EXITS contains the capability to analyze seven different struc- 
ture types. These are listed below as follows: 


STRUCTURE TYPE NUMBER 

SLAB 1 
RADIATION OAR 2 
HONEYCOMB 3 
CORRUGATED 4 
Z STANDOFF 3 
THIN SKIN 6 
ABLATOR SiULIMER 7 


The methods used for analysis of the slab, thin skin, and ablater-sublimer are 
contained in this section. The methods for the radiation gap, honeycomb, corf* 
gated, and Z-standoff structure are actually the same as the slab so therefore 
the logio used to compute the equivalent conductivity is not presented here but 
is given in Section IV, Description of Subroutines. 


2.1 SUB MODEL 
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OF POOR QUALITY 


the thermal slab model is the finite difference representation of the hett 
conduction equation end ie teed to obtain the temperature response of the sltb 
and ablator structure types, to obtain a finite difference numerical eolation 
to the heat conduction equation, the derivative* in apace and tine are replaced 
bp finite difference analog* , the heat conduction equation for an ieotropie no- 
torial with one apaeiel dimension is: 


8T 3 2 T 

pC ~ ■ k — 

3d 3X* 

The spaee derivatives ean be represented in the fol loving manner referring 
to the temperature distribution depicted below* 



J I L 

(—•ax- *|-» — ax^^i 


Finite Difference Temperature Distribution 

Expanding about point 0 using taplor'e series for the temperature at 2 

3t AX. 3 2 T 3 

T 4 - To + ax 2 — + “7 — I +0 (ax 2 ) + ... 

ax o 21 ax o 2 


In a like manner, expanding about o *or the temperature at 1 


2 K 

aT axi a T 3 

T< * T 0 - AXj — | + r| 0 “ 0 (Ax ) ♦ ... 

1 0 ax 0 21 ax 2 
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ORIGINAL PAGE iS 
OF POOR QUALITY 

Combining these two expressions, ignoring higher order terms end solving fo r 


*t tine step n «e find 


i!l | 11 . I p? a *2 4 *2 **i " Tp U*i ♦ AX g r i 

8X 2 0 UXj + AX 2 ) *- AX} ax 2 ^ * 

If wo tike i forwird difference approtination for the tine derivative is shown 
below 


«t . if 1 


end substitute into the heat conduction equation we find 


pC ( 


4 *, ♦ 4 X 4N Tf‘- T 0 " 


Jt_ (t" - tS) k <Tj 


If the thermal capacitance is defined as 


pC Vf ■ pC 


AXj + AX2> 


and the condnctors ns 


*u * 


we have* upon infest i tat ion and sene algebra 


Tr . . T ; * -JL £ , g (ij 


T n ) 

V * 
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Thi* expression it tbo basis Of tbe thermal balance »t 0 #ch nods in the edndttc- 
tiotk network. flowecer# for nodes adjacent to • radiation gap on struotare in 
thieb tbo beat transfer mechanise It not by pure conduction* wo can form 
equivalent conductors. 

Tbo maximum tttblo tine stop* A© * wbleb eta bo taken ooa bo found by rear- 
ranging oar finite difference algorithm at follows 




tad noting that tbo coefficient of tJ must tetania positive fot ail AQ . A nega- 
tive coefficient would noon that tbe greater the temperature at tine atop a, the 
leea tbe temperature at time atep a + 1 which would not make tense. We now hove 


A3 

c < i 

or 

A9 < - . 

2*1 4 

j 

this criteria it uted for all eatea except the thermally thin oeetiont. To in- 
sure stability especially when the t^ # are nonlinear radiative oonduetora, the 
time step la divided by the input parameter STAB. 


um\mi pace ja 

Of POOR QUALITY 

A major feature in the dewelopment of this code was the thermal element 
tbteb consists of a thermal masi and a beat transfer path between two nodei lo~ 
eated at tbe ends of the element abown below 



Typical Thermal Element 

Balf of tbe thermal mats of an element la assigned to each node, tbe thermal 
elements are then stacked to define the complete thermal protection system, the 
alab and ablator materials are divided into several elements by the program. 
All other structure types consist of a single thermal element which arc stacked 
open each othe* sharing their common node points. 

Constructing the network in thie manner introduces slight errors where 
structures of varying eapacitanee are adjacent to one another and also at the 
surface node. In these cases, the node ie not pieced in the exact center of the 
thermal mass, however, energy ia conserved. 

2.2 COMPARISON ttTtt ANALYTICAL SOLUTION 

As a check on the aoottricy of tho numerical algorithm, the solution was 
compared to an analytical solution. Ref. i, of the partial differential ela- 
tion. The oonvective heating of a plate of thickness 26 4 from both aides ii an- 
alogous to heating of B slab of thickness 6* from one aide with an adiabatic 


ivr.'it: C|‘ 

OF POOH QUALITY 


baokvell bound* ry condition, If the convective beet transfer coefficient, It, it 
Jt»ld cone tent then the following bonnaery condition# will apply, where T * t-t f , 

•T 

T ■ at 9 ■ 0 

f aT 

— ■ 0 at x ■ 0 (center of slab) 
ax 

« *T h 

* 7” " 7 T at * " ±*i (surface)* 

8X K 

ft* product eolation if found to be 



♦b**e ere the toot* of th* ttafteeftdentel ecu* t ion 

N u • M fl tan 

Nit being the Nbteelt number given ee 
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Nominal a tot** fo * itii a Cate and a graphical representation of the ttaneendentt-l 
equation are shown in Pig, 2,1, 


Fig, 2,1 Infinite Slab Heated From Both Sides 
With Graphical solution For M_ 



A digits! computer program ta* written to find the root* M n end evaluate 
the analytical eolation. Various number* of tonne aero token in the infinite 
eerie* to cheek for convergence. A satisfactory eelntion w*e feand efter 50 

term were need* 

* The teet e**n consisted of * teyer of cork one inch thick eith an adiabitle 

beekcide model neing lit node* through the thickness. A comparison of thie ease 
with the analytical solution ic presented in Fig* 2.2* Agreement appear* to oe 

40 ite good. 
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w 

Cork -X 
' Slab tn 

^ 77^7 



NOTES: 

1. 6 Node Model, Cork Slab 

2. Insulated Backside 

3. Adabatlc Wall Temp * 10,416.6*R 

4. Film Coefficient • .001276 Btu/ft*-*R 


PROPERTIES 
Density 10 1bm/ft 3 
Sp. Heat .04 6tu/lbm- ft R 
Conductivity 6.0 x 10~* Btu/Tbm-ft-^R 



Depth In. 

Flfi. 2.2 Comparison of Thermostructures Code with Analytical Solution 
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2.3 THIN SKIN MODEL 

For * «Ub typo •tractate which la node of a material which hei i high 
thermal conductivity, the temperature gradient through the material ein he ox- 
peeted to be inall for relatively thin feetiona and the heat fluxes encoantered 
daring reentry. If thit gradient la to be modeled using the alib option, we aee 
that the tine atep required to resolve this gradient will be very snail since in 
general. , where one or more of the K^'s till be large. The snail 
tine step will result in long run tines with very little increase in accuracy of 
the analysis. 

If* however, we assume that the tenperatore gradient through the thin shin 
type structure is sero while still allowing heat to be stored in the structure, 
we can circumvent this tine step restriction since we have effectively tahen the 
conductors in the high thernal conductivity naterlal out of the network. The 
resulting slab of naterlal now beeonea thermally ’*thin". i.e. no temperature 
gradient and long run tinea can be avoided. 

Consider the generalized slab of material and nodel network in Figure 2.3 


t 



Thermally Thin 
Structure 


Mg. 2,3 Typical Thermally Thlh Structure 


# If we write the equations for a heat balance at tine step n + 1 at nodes 2 and 

3. we have 

C 2 T 2 +1 * T$ C 2 * (TiKi ♦ TjK 2 - T^- T 2 K 2 $9 
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C ,C • A C, ♦ (T sV T K . T K - T K )49 . 


No« if we assume there ii no temperature gradient between node 2 and 3 and add 


the two equation! together to find the total energy stored at the end of tine 
step n + 1* we have 


VS** + C » T > + ’ ■ TjCj+TSC, ♦ (T,K, - T S K, + T.K, - T,K,)%9 


fot the teuperetnre of the thin lection, «, , ttl „ , t tt , 1I(U '. 

Itha for the thin akin section temperature below 


n+t n 


T » T + — ' " » . rrti/ + yrti/ \ 

*-* + r ' ri Vl + Vs * T sV • 


Looking at this erpression, we note that the conductor K a has been eliminated 
and will no longer cause the small time step problem. 

Considering the second law and finding a stable time step criteria can be 
accomplished as follows. Factoring we have 


T * t 

2 3 2 


°a R " — (k + K )"1 <* i , It^K . j\"] 

L c f ♦ c 3 1 u c 2 ♦ c s [.S VJ 


The first term in brackets most remain positive for any stable time step so it 


follows that 


UU 

- — r < K i + 

Cg + Cg 1 8 


c 2 + c, 


Ad < 


Kj + K 3 


'VI./ * 




(*) 


We see that the stable timo step express! on U ia the familar fora -JL. bat 

iK iJ . 

460* 00 1 have large conduction value* which till cause the small time step prefer 
^ lemt. 

the previous diseniiioit consider! the thin akin section to he * general 
f case, for the eiae there tho alab ia on the surface exposed to the reentry en- 

vironment or ia looated on the baekaide there the adiabatie boundary eondition 
ia need or there it exists by itself there both conditions exist, special logic 
ia imposed* 


2.4 Ablator-Sublimer Model 

the logic need to compote enblimer-ablator performance take# into account 
the energy management retirement at the material anrfaee as follows: 


1. the energy conducted stay from the anrfaee 
1 . the een&ible energy stored in the material 

3. the latent heat required to sublime the material 

4. the eonveeted or adveoted energy required due to the receding surface. 

1 ; 

the numerical seheme devised to coconut for these effects it incorporated into 
the program's network by special logic which consider* the moving boundary and 

the latent heat required to sublime the material using the alab logic. When the 

temperature of the surface remains below the temperature of sublimation, the 
thermal balance ia performed just as it wonld be done in any nonablator materi- 
al, If* however* at tha end of any time step we see that the temperature has 

exceeded the sublimation temperature, the amount of energy that waa required to 

exceed the sublimation temperature ia computed and the surface node temperature 
is set to the sublimation temperature, the excess energy is then used to com- 
pute the amount of material which it sublimed. 




ORIGINAL PAGE E> 

OP POOR QUALITY 

Considering the few node network shown ia Figure 2.4, we see that the aur- 
face has 



reached the sublimation temperature. Additional heat added to the surface which 
ia not radiated or conducted away ia heat which sublime e the surface material 
and advances the surface into the cooler material. 

te first compute an excess amount o f heat which waa used to take the sur- 
face node temperature over the sublimation temperature with the following ex- 
pression 

Aq * Cj (tj - T $ub ) 


and then act 



ORIGINAL PAGE S3 
OF POOR QUALITY 

Next, te compute the surface rece-ssiou distance (torn the latent heat of 
sublimation, L, and the density aa fellows 


Aa the surface receede, the melt line suet also recedo, so we move the boundary 
between node 1 and 2. This results in the mass in node 2 at temperature T a 
teeing brought to the sublimation temperature Teub, thus, the energy added to 
the syatem muet tee taken into account. 

If we look at Figure 2,5 below there the temperature through the ablator ia 
shown and 


T $UB 



Mg. 2.5 Node Movement For Ablator-SubHmer 

one time step ia A8, we see that if the node boundary between 1 and 2 ia moved 
2/9 AS and node 2 is moved 1/3 AS, the material in node 1 and node 2 will tee 
completely eliminated after a given number of stepa, However, before we com- 
pletely eliminate node 1 and 2, we stop when a prescribed amount of material ia 
left in node 2 and raise its temperature to T SD g. Node 3 now becomes node 
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OF POOR QUALITY 

ftoaber 2, and the remaining Adda* «rc renumbered. The proce •« now continue, 
until node a if eliminated again. 

W we not consider the original numbering scheme, we see that the node 
boundary between node 1 end node 2 is t moving boned#** o* looking at it in 
another way* node 1 if fined in apace (Eulorian) and nodes 2 and greater are 
fined (LaGtangian) to a moving material. In this sense, we see that energy is 
eonveoted or advcoted into node 1 and this energy must be supplied by the aero** 
dynamic heating environment. Referring to Rig. 2,5. we ean see that this 
amounts to 

2d$ 

cC p — < t SU8 * V- 

Sinoe this energy must be supplied by the aerodynamic heating and is only re- 
quired then ablation occurs, we adjust the latent heat of sublimation to account 
for this, fe then compute an effective latent heat ok ablation from the follow- 
ing expression 

LefJ ■ ( L e*f V i 4 T A$n 1 ( L * C p ( T SUB " t £)) ) 

Vj 1 + |*AS n 

In the expresssion above* L is the actual heat of ablation t\ tt is the effec- 
tive heat of ablation from the last step and V 4 ft is the volume of node 1 at the 
last time step. 

In applying this method, heat conducted from node 1 to node 2 and 2 to 5 
etc. if accounted for in the same manner as the slab described in Geetion 2.1. 

An example of this procedure la shown in Figure 2.5 for a hypothetical ab- 
lator. Results are compared to a steady state analytical solution from fief. 2. 
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Section 9.0 


DESCRIPTION OP THE PROGRAM 


Aa effort was made throughout the development of the EXITS code to keep the 

'V 

itroctare of the oode ii nodular ae possible and to dofiae specific functions 
whieh could bo broke a off iato eubroutiaea* Dp ia large* thla hie beea accom- 
plished, end aa • result, the program capability caa be etponded without exten- 
sive reprogramming. 

The method of defialag thermal structure types, i, e. slab, honeycomb, cor- 
rugated ete. facilitates the organization of the program aince each atructure 
type* with the exception of the alah and the ablator, coneiete of a conductor 
Connecting two nodes located at the ends of the atructure and capacitance, one 
half of which ia aaaigned to each node. The slab and ablator are similarity de- 
fined with the exception being several nodes are placed within the structure. 

The main driver contains calls to the primary functions or primary su- 
broutines. These primary functions in turn call secondary routines which supply 
required information. The structure of the EXITS code is shown in Tabxe 3.1. 

The routines are arranged so that the MAIN controls the program flow, calls 
input routines, contains the time marching iterative loop and creates the output 
file. 

A more detailed flow chart and arrangment of the subroutines is shown in 
Figure 3.1. Bach subroutine's calling structure is shown in Table 3.2. A full 
description of each subroutine is given in the next section. a 

No blank common is used, only named common and it's location is shown in 
Table 3.3. ^ 
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Fig. 3.1 I XI*. 5 Subroutine Flow Chart 
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Section 4.0 


DESCRIPTION OF SUBROUTINES 

Thi« section describes the main driver and the twenty three sobroatiae* 
that comprise the EXITS oode. The description presented if an overall deaerip- 
tioa which nay iaelode the aobroatiae function, nethod aad program logic. 

4.1 main 

The naia driver of the EXITS code coatrola the major fuaetioae of the pro- 
gram aad also ooataiaa the ottpnt ealle. Logic for ealliag the major au- 
broatiaea la foaad la thia part of the program* Coaataata aad eoatrol flaga aad 
initial valaea of integrated heat loada are firat aet to their preeeribed 
valaea. The interactive iapat tontine 1NPGE0 ia called. Then initial tempera- 
tarea are aet aad 8abrontiaea DATA1 and DATA2 are called to obtain the material 
property aad environment data. A oall to aabrontiae NODE aeta ap the thermal 
network of nodes, capacitore and ooadactore for each body point. A call to PIO- 
TtJR eeada a depiction of the atractnre aad node location to the line printer. 

The temperature integration atarta with the time loop after farther ini- 
tial itatioa. Output and unite eoaveraioa take place within the time loop which 
ia coatroled by the print flag NPEG. The adiabatic wall enthalpy, film eoeffi-* 
cleat and preaaure ia found from a call to EEATN. If an ablatof-aublimer ia 
uaed, the ablator propertiea are found from two cilia to SttBPR. Valuer for the 
eoaductota and eapaeitora are computed from COMPCC. The time atep DTSM ia cal- 
culated from etability criteria and the uaer supplied parameter STAB. 
Temperaturea for all nodea in the etructure are computed at the end of the time 
atep by aubroutine COMTMP. If an ablator ia called for, the recession and 
renumbering of the node and conductor sequence is done in ABSDB. Finally, at 
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tu ead 6 f the titte integration loo?, the heat load!. eeaiible heat, adveeted 
heet, tad labliaed beet ere integrated aad tine it increased by the aaaoat dtSM. 
A eheeh ie bade to eee If the anaber of eteyg or tine hee ezeeeded the iapot 
viiaei ead if aot coatrol i« retaraed to the toy of the integration looy. 


4.2 SUBROUTINE PROP 

Xhie eahrootiae teturne theraoyhyaieal yroyertieg for the aeteritl epeei- 
fied try the teriable MAT eg a faactioa of teayerature, ti. ead yreeaare. p, 
Ruhr oat iae INTP ia oalled with Tl ead P eg the iadeyeadeat arguaeate after the 
yroyerty table ataabexe are ooaiyated for the deaaity* gyecific heat, eoadaetivity 
aad eaieeivity. Proyertieg for ablator aaterial, heat of ablatioa aad teayere- 

tare of ablatioa. are aot eoayated by PROP. Theae yroyertieg are foaad by the 
eabroatiae SUBPR, 


4.3 SUBROUTINE INTP 

Thia eabroatiae liaearly iateryolatea ia either two or three diaeaeional 
errayg for aaterial yroyertieg eg a faactioa of teayeratore or at a faaetica of 
teayeratore aad yreaeare. The argaaente X. P. * y. are re.ye*tivel r , teayere- 
tare, yreaeare. table anaber aad the retaraed yroyerty. The eabroatiae iateryo- 
letea la both aoaovariate aad bivariate tablea. Ablator-eubiiaer yroyertiea* 
eabl iaatioa teayeratore ead heat of eobliaatioa, are aot foaad by INTP bat ere 
f«5Md by SUBPR. Pete for the yroyertiee are etored ia the array CC(N.l) for the 
aoaovariate arraye aad CC(N.J) aad BSV(N.JT.IL) errayg for the bivariate tablea. 
the irraageaeat of date ia the arraye for the two tyyea of tablet are ehowa la 
the follow lag eteaylee. Data for the aoaovariate tablet are ehowa la table 4.1. 
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NfLON PHEN CONWJCflVm 
1.39E-3— CC(N,3) 

1.39E-5 CC(N.S) 

1.94E-S | 

2.30E-5 J 

2 . S OE-5— -CC <N, 1 1 ) 

tABLE 4.1 Arrangement of Data For Mcnovariate Properties 

Data for tie bivariate table are shown is fable 4.2. 

Initially t Check is made on the sign of CC(N,2) to determine if the data 
for table N is monoveriate or bivariate. If the sign is positive# the data 4s 
searched to find the two teaperatnres to interpolate between and a straight line 
interpolation is used. 

If the sign on the variable CC(N,2) is negative, then a bivariate table is 
assumed and the independent variable array, pressure stored in CC(N,3) to 
CC(N, (-CC(N,2)*f2)), is searched to find the increment in the pressure direction. 
The temperatures are then searched to find the two temperatures between which 
the interpolation is to be performed and the pressure increment applied. 
Finally, with two interpolated values found in the pressure direction, the tem- 
perature increment is applied and the final value is computed and returned 
through f in the argument. 

4.4 StJBBOUTlNE DATAl 

Subroutine DATAl finds the material property data for the material a given, 
renumbers the material identifiers, MATS (I, IT, IM), and stores the material pro- 
perty data in arrays to be used later in the thermal analysis, this routine 
first reads through the date and picks out the data from the materials used in 
the model. Material identification numbers are then changed to the order in 
which they appear to minimize the storage requirement in the CC(I.l) and 
fiSt(l.l) arrays. 


CC(N, 1} 5- 

CC(N,2>— — 0.0 
CC(N,4)~— 460.0 
| 6S0.0 

i 910,0 

CC<N,10>— 1000.0 
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When * material it found Or matched to the material specified* 
MAT(I»LT, IM), this routine read! the title card and neat aet of dfttft earda ac- 
* oording to the number specified. the heat three «eta are then. read for a total 
of four tablet. If the firat entry in the independent array of any table ia 
> negative, the table ia assumed to be bivariate and a different aet of logie ia 
need to itore the data. Data for the meaovsriate tables are stored in an array, 

CC(N.J), there N is the table number. If the data ia found to be bivariate, 

* 

then the independent variables are stored in CC(N,J) array and the dependent 

♦ 

variables are stored in the array B$V(N,?,K), table 4.d. Each material property 
set in the property file most appear in the prescribed order, density, specific 
heat, conductivity, and emissivity. Doits for these properties most be entered 
in Bit's, feet, seconds, pounds mass, pounds force* and degrees Rankine, 

For ablator-sublimer material, the material property number of the fifth 
and sirth property is entered on the title card. When the same material Idem** 
tifier number is found, the temperature of sublimation and the heat of sublima- 
tion as a function of pressure is given as the fifth and sirth property and 
stored in the array CC$(I,J). 

4.5 StJBROtJtlNE COttPCC 

Subroutine COMPCC computes the values of the conductors and capacitors for 
the network, the capacitor 0(1) and conductor CDU) values for the slab and ab- 
lator structure types are computed directly in COttPCC. Capacitor and conductor 
values for the other structures are found from routines called from COttPCC. 
Values for the conductors between the nodes for the slab and the ablator are 
found by calculating the distance between the nodes from the node position 
array, 14(1), and then finding the conductivity from the average temperature 

between the nodes. Conductor values are found from the cipressioa 

k 
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tit the Mat loop that the conductors are computed, the capacitors ire 
tottitd. The mass of the materiel between the nodes is computed aed multiplied by 
the specific beat. Since one half the mass ia aaeooitted with each code, the 
eapaeltauee value ie divided by two aad half of it is summed it each node. 
Capacitance value for each node ia found frott 


«■£ 


* C M 


whete the auaaatioa oa j ia on the thermal mass adjacent to the node i. At this 
time, the mate of the structure ia also computed and stored in XMAS. 

Per structure other than slab type, IN » 1, or ablator, IN - 1 , COMPCC 
branches off to the following routines. Table 4.3. 


JN 

Structure 

type 

Subroutine 

2 

RADIATION GAP 

RGAP 

3 

EONEtCOMB 

HONEY 

4 

Corrugated 

cofid 

5 

2- STANDOFF 

STAND 

6 

"THIN" SKIN 

THINS 


TABLE 4.3 Routines For Computing Effective Conductance 

Before branching off however, subroutine LOAD is called. This routine takes in- 
formation, (i.e. geometry, materials etc.) from named common, LB, end loads it 
into the named common, GAB. The subroutines called when JN - 2 through « com- 
pute the effective thermal conductance, XK, mass XM, and capacitance values C/Pi 
and CAP2 and returns these values through the named common LD. Subroutine 
COMPCC then sums the capacitor values in the C(I)s and the mass XMAS. The con- 
ductor is then defined in CD(I). 




4.8 SUBROUTINE STRUCT 

Subroutine STRUCT it the root! no tbtt handles the structure f lies. 

STRUCT open# the structure file and either locate! * specific structure 
that already exists in the file o r adda an additional structure to the file, 
fiver? atrnetnre hai a corresponding structure number, and a two line descrip- 
tion, along with the structure variable!. 

4.? SUBROUTINE LOAD 

This routine tahea data from the named common LD which deecribea the geome- 
try and materials of the following structure types 

RADIATION GAD 
HONEYCOMB 
CORRUGATED 
2- STANDOFF 
THIN SEIN 

and loads it into the named common GAP. In addition, the temperature of the 
upper and lower surfaces are set for the material property lookups and the radi- 
ation conductance. The material identifier numbers MAT$(MP, IS, 1) are loaded 
into the M(l) array and the six geometric parameters, XP(MP, IS,J), are loaded 
into the X(I) array. 

4.8 SUBROUTINE AfiSUfi 

Subroutine ABSUfi provides the logic to predict ablator-sublimer recession, 
the node spacing and the effective heat of ablation. This routine is called by 
main after th* sublimation temperature is reached. Ablator variables are passed 
through the named eommoft SUfiLM where the following variables are significant. 
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fSt® - Sublimation temperature ORIGINAL PAGE (SI 

*L - Latent Lest o f tub lima t ion °P POOR QUALITY 

XLP - Effective Heat of sublimation 

EXCflT - Excel* beat over time step 

EXOBSV - Excel a beat from last time step 

QAEVS - Advected beat from previous time step 

TMSV - time at last iteration 


Eifit* tbia tontine computes tbe distance of tbe surface recession, AS, by 
the following expression 


M 


lS . V««» 

L* p 


Eton tbia value of AS tbe surface node is moved a distance of AS, tbe second 
node ii moved AS/3,0 and tbe boundary between tbe two nodes ii moved 2 AS/3* If 
tbe distance between tbe first and seeond node, XLTS, becomes lees tbtn XMIN, 
tbe seeond node is dropped from tbe network and nodes. Capacitors, locations* 
and conductors for tbe rest of tbe network are renumbered. Figure 4.1 shown 
below describes some of tbe nomenclature used in this routine. 
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4.9 SUBROUTINE DATA2 

S,k*..tiM DATA! O..0. Oot. to® 8.U 1 »k,ok 0.ft... tk. ...too...., •« 
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stored using the following variable nsaci 


TIME 

TM1 (IC) 

FILM COEFFICIENT 

BC1 (IC) 

ADIABATIC PALL ENTHALPY 

EAV1 (IC) 

PRESSURE 

PRES1 (IC) 


Hie largest number of entries in these tables it dimensioned by the common vari- 
able NMEN and currently set to SO. If a search of the file doea not reveal a 
match of the body point number, a message is printed. CANNOT FIND BOOT POINT. 

4.10 SUBROUTINE PltttlR 

Subroutine PICTUR displays a description of the structure for a specific 
Body Point in the fora of a picture. PICTUR is called in the EXITS program in 
two ways. The first way is from INPQEO, right after the structure of a Body 
Point is defined. This is a guiefc look picture, that appears on the interactive 
device, and is used for deteraining if the structure defined is really the 
structure desired. If not, an opportunity is allowed to redefine the atrnctnre 
for the Body Point correctly. 

The other way th ' PICTUR la called ia from MAIN after the node structure 
hae been defined. This picture is written to the Output file end corresponds to 
the speelfie body point thst is being executed at that time. 

If an ablater-aublimer structure is chosen, then additional calls of PicitiR 
will occur cseh time a node is dropped from the structure. For each node that 
ia dropped, a picture will be written to the Output file thst describes the 
structure of the body point eftet dropping the node. An exsapls of a picture 
aide by PICTUR ie shown in Pig, 4.2. It includes a picture representation of 
the structure of each layer stacked together and also information like the ma- 
tetiala used, the structure type and aomd of the dimensions. 
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fig. 4.2 Line Printer Representation Of Sample Structure 
Prom Subroutine PICTUR 


4.11 SUBROUTINE OOMTMP 

Subroutine OOMTMP 1« the subroutine which calculates the new temper etwee 
T(l) it the end of the time etep given the old temperatures TO(I>* oapeeitoxe 
0(1). end conductors 00(1) neing the heat halenee. Section 2.0. it each of the 
nodee in the structure. Two types of logic are used to compute the tempera- 
tures. The first part of the subroutine is devoted to setting up the heat bal- 
ances and the boundary conditions for the thin skin structure type if a thin 
skin section is adjacent to the node in question. The seoond part performs heat 
balances for ill other structural types. 

At the beginning of the routine a check on the flag ISBKG is made to deter- 
mine if thin akin logic is to be used any within the structure. If not. the 
logic flow goes directly to the standard heat balance for each node. To deter- 
mine if a node is adjacent to a thin skin element, a check is made on the con- 
ductors an either side of the node, if a conductor value is greater than 10*. 
then the thin skin heat balance is to be used. (A conductor value of 10** is 
set in subroutine TRIMS). 

Logic is included to determine if the node is above or below the thin skin 
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section o r if the thin akin motion Hob on the surface or is tbs list straotar- 
«1 type sad requites tbs sdisbitio boundary condition*. 

the stifidsrd best bilanes, Section 2.0, is used for *11 bodes other than 
codes sdj see fit to tbe thin skin sections. A efaecfc is aide to see if tbe node ifi 
Question it * surfsoe node or if it is tbe lest node. Finally, tbe tony*** tore 
of tbe sarfsee node is cheeked to see if it bss eseceded tbe sabliibstion tea- 
pirstore for t sblstor-sobliaer structure, if this is tbe esse, tbe eseois best 
is eslcuisted. 

EXCHT . (T(l) . Tjug) • C„ 

the flag NAB set cqusI to one sad the surfsoe teapersture set to T g gg* 

4.12 SUBROUTINE NODE 

Subroutine NODE is celled froa MAIN to set up the nodel network and to ini- 
tislise teaper attires. 

Tbe logic Sturts by taking one structure type it s tine beginning st tbe 
Surfsee and working down. A check is made on the structure type, 1ST, to sec if 
it is s slab or sblstor-sublioer. If s slab or eblstor-eubiiaet is found, it is 
divided into layers end nodes assigned as follows. The layer thickness is con- 
trolled by the input paraaeter DtlM whieh dividea the tots) thickness into 
layers to give a stable value of DT1M shown below 



pC p 

the nufiber of layers, conductors, are found froa 

H 

NX • — + 1 
DX 
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aatatiai type, conductor auuber, and node aaabere. 


4.13 SUBROUTINE HEATN 

«... ....... u«... 1 , i.t «W 1 MU «h. ... mlt 

:r # “ ,ui * *• ,u - •""*•*•* <*>. .... 

(HlES, * « *• »». a. •«.« iso «. 

to itfttt the ititorpolutiofa search *t th& . 

•••.on it it. |„, ,1.« .. th. u,,,, Ue Utt tlM 

tbi« routine tat called. 


d.14 SUBROUTINE VFAC 

me ........ U. ......... .... flctM , „ m ^ 

«... «»>. Wl, .... Titt f „ t#r 

«»«.». .r « t. ... oli „ , ltku , im . 
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DIST which finds the distance between the end points assuming that the surface 
ifi a straight line surface. 

The view factor oaing the crossed strings method ie shown below, Ref, 3. 
Given two surfaces shown in Fig, 4.3. 

, / \~ :>'i* 


,tc 

FIq. 4.3 Cressdd Strings Nomenclature 

(So + Be) - (R ♦ SB) 

F 1-j ‘ t A, 


In other worda, the view factor from surface I to J is e^ual to the lengths 
of the crossed strings minus the uncrossed strings divided by twice the area of 
surface 1. 

Subroutine DlST is called to find the lengths of the crossed and unerased 
strings. The varisble SUMP is the sum of the view factors of one sort see to all 
other surfaces which should e^nsl 1 but is not now printed out. 


4.15 SUBROUTINE DlST 

Subroutine DlST finds the distance between two point* given their two di- 
mensional coordinates. The named common FACT contains the coordinates of the 
end point* of the line segments which make np the radiation enclosure. The 
coordinates are contained in the JtfU.J) and Tt(I.J) arrays where the I sub- 
script is the surface number and 3 ia equal to 1 or 2 depending upon which end 
of the surface is considered. The distance formula 

D ■ J (X'i - Xj) + (T, - Yj ) 2 
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i* tc*d to conpit* the distance. 


W„~* r *»w lr«*V U4«(«H69 9 

WlGim, h'Cr [r- 

0F P0 “fi ouiuirif 

4. id SDBHODTINE TM8TEP 

Thil eabteatiae detetfiiaei the~mble tine ita* fot the eapiioit time ia- 
tegrttioa of the eaetgp beiaaee at eeeh aede. Pet the geaetal case the m.ximua 
•tihl# tine stop tot the aedti network shown in Pignro 4.4 le 


A9 £ 


C (I) 

CD (J) ♦ CO (J-l) MIN* 


P<9* 4.4 Nomenclature For Slab Time Step Calculation 


Pot the Oise where the aode lie* oa the etrftee, the eoadaotot cfi(J-l) i* to - 
Pleeed h p CONV + CRAD, the tua of the coamtive tad ttdiitive eoadaetote. Pot 
tie adithttie bacfcetll, the eondoetor CD(J) it set to goto. 
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The thin thin stability rejjuireaent for the conf igoration «howa in Figure 


4.5 



M 



i 



t,. 


Fig. 4.6 


Nomenclature For Thin Skin Time Step Calculation 

! 


is found by ignoring the very high conductor value of the thin shin seotion. In 
general, the stability requirement for node N1 or N2 is 


C (Nl) + C (N2) 

1 CD (KM1) + CD (KPl) 


MIN 



b 



For a thin skin surface node* the convection iud radiation conductors are in- 
cluded in CD(RMl) . For the adiabatic backwall CD (KPl) - 0. 

After the ainiaua Adis found, the resulting tine step is divided by the 
input parameter STAB to insure stability. 

4.17 SUBROUTINE INfOEO 

Subroutine 1NFGEO is the interactive routine that sets up the initial con- 
ditions and defines the structure for each Body Point to be run. asks for the 
FILE NAME of the file that contains the LANM1N (NlNlVEft) data for each body 
point, and asks for the FILE NAME of the file that contains all previously de- 
fined structures. (NOTE: Use of this file is optional). This subroutine also 
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t»ki for the FILE NAME of the tile that it to eo*t»itt the EXITS output* 

Th* initial, final and deltft-Uffles tot the output, paint ir« alio ret here. 

Th« control paraaeteae toay alao be changed at tail point if the near doalfaa* 
Otherwise, default valuer ere need. 

TEe nuaber of tody pointa to be run i» then defined a ad tEe conditions foe 
eaeb body point aae defiaed. Fo t each body point, aa initial and alak tempera- 
te ia defined aa tell aa tEe atructure of that body point* TEe atructure for 
a body point may be eboaen itm the structure file by atauctnae number ea by 
eaeating a net ataaotaae definition. 

Creating a net ataaotaae ia done by leyeae aai ataaotaae typer, aateaial 
number a, and dueaaiona. Aftet the ataaotaae of a body poiat ia defined, a ei®- 
pie picture of that ataaotaae ia diaplayed and the ataaotaae of the next body 
point ia defined. Aftea the ataaotaae and inital condition foa all the body 
pointe aae defined, 1NPGB0 aetaane to MAIN. 

4.18 SUBROUTINE StJBPR 

Subroutine SOBER interpolator in an array of data to find the teaperature 
and latent beat of sublimation aa a function of aarfaoe etatie paeaaare aa aap- 
plied by LANMIN. There propertiea aae atoaed in the CCS (N, NMBP) array found 
U the naiaed eotttton CSOB. The data ia atoaed in the following ttannea 

CCS (N,l) - Nattbea of 1-t paiaa in array 

CCS (N,2) » First independent variable (Preaaaae) 

CCS (N,3) ■ First dependent variable 
CCS (N,4) • Second independent variable 
CCS (N,S) » Seoond dependent variable 
etc. 

i 

I 

A 

The routine fiaat checka to aae if the value of the argument, X, ia out of range 
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of the independent variables in the tabid* and if to* assign* the correct sub- 
icr ipt* to extrapolate off the end of the table. If the value is not out of 
range* a search is conducted to find the tec independent variables which, bound 
the value and a simple straight line interpolation is performed, 

4. Id SUBROUTINE SRIPF 

Subroutine SRIPF finds the radiation interchange factor ,^? , in an enclo- 
sure given the areas, emissivitie* and the geometric view factors found in VPAC. 
the named common SF contains the information in AR(1) (areas), £PP(1) (emicsivi- 
ty) , and F(I*J) (geometric view factors). The product of the area and radiant 
interchange factor is stored in ASP (I,J)» 

the method used in SRIPP is a network method which is solved by an itera- 
tive technique for the rsdiosity between each of the surfaces. If we consider 
the network in Figure 4.4 for an enclosure with three surfaces 



q NET j 


■t 


tml 


; J k A J <J k 



we see that 
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or 


Cj Ai 

q N£T -J " 


i - V • 


Equating those two erpre talons and by use of some algebra, we aee that 


J 


J 



I, J « '* 

k*J 


i* the final expression foe the radiosity at node j. Using the fallowing itera- 
tive relaaation procedure 


jJ +l - (1 - 0) dj + $ ^ , 


where the relaxation parameter# g, ia typically #5# convergence. 


J 


n ,n-i 

r 3 i 

— j — 


< .001 

GREATEST 


i# found within ten iterations for the structures described in this code. After 
the radiosities are found, the radiant interchange area factors are found from 


ASF ( 1 , 0 ) -S^A, 


Aj F i-J ( J i ~ 0j> 

< E b1 * E bJ ) 


where the black body emissive power is assigned arbitrarily. 


4.20 SUBROUTINE OORO 

This routine determines the effective thermal conductivity, thermal capaci- 
ty and mass of a corrugated panel section considering heat transfer by conduc- 
tion and radiation through the panel. We first consider a small section of the 
corrugated panel shown ia Figure 4.7 




«ad choose two planes of symmetry and assign the three modes 1, 2, end 3. tU 
geometric and material parameters a re contained in the netted common OAK the 
three material thicknesses are TH1, TB2, TB3, while material identifiera are 
contained in Ml, M2, M3. Overall height is TB and the pitch ia P. Temperatures 
at 1 and 2 are given as T1 and T2. These parameters are assigned their respec- 
tive variable nam es in anbrontine LOAD which is called imttediately before CORG 
is called. The temperature at 3 is unknown* but given the temperatures at 1 and 
2, geometric and theraophysical properties, the temperature at 3 can be solved 
by iteration. The equivalent network for this system consists of a conduction 
path from node 1 to node 2 passing through node 3. In addition, there is radia- 
tive heat transfer from node 1 to 3 and reradiative heat transfer from 3 to 1. 
The radiative enclosure for the upper, lower, and corrugated structure is 
modeled using three planes shown below 



Pig. 4.8 Rddlatlofi Enclosure for Corrugated Panel 
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PI *no % i« • pime of symmetry in which the emissivity is sera A Ad ill incident 
radiation is reflected hick i&to the enclosure which is the emitted add reflect* 

* ed radiation from the reflected enclosure IS 3% 2. The ooordinetel of the 

plane a 1, 2, 3 are act end stored in the U (1,3) and ft (1,3) erraye where 1 ia 
> the piano number and 2 is 1 or 2 representing the end points. The anbrootlnes 

VFAC and SR1FF are called to define geometrie view factors and area-radiative 
interchange factors, ASF (1,2)* From these factor Adiaticn conductor a are 
formed from the following expression 

hi * h&u • < T ? ♦ T J> < T i + V • , 

* < 

where © » Stefan fiolttman Constant 

i 

The equivalent network for the total heat transfer from surface 1 to 2 is shown 

i / 

in Figure 4,9. 



| ' Fig. 4.9 Corrugated Panel Equivalent Network 

. f 

The three conductors in series K x i| and £ x * fc 4 * £** represent the pstha 

► 

i 
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the «*per aad lower effaces, . coat.et eoadactaaee which tot the 
******* time it feet to 10* times the ares, sad the eoaduetioa path tfaroogh the 
co^ogsted seetioa. The eapre.sio* for the th.ee coaductor. ia series is *,** 
to tota the eoadootor* from aode i to 3 «ad 2 to 3 is showa below 

Cl * K 1 K 2 K 3 

K 1 k 2 + K1K3 + k 2 K 3 


C 2 


K I K 2 K 3 


K i K i + w + w 

tt we tepre seat the radistioa paths from 1 to 3 as 


(T? + T*) (T x + T,) 


a ad 2 to 3 as 


CS “ A l8f 1*3 0 + tj) (T 2 + T 3 ) 

te can iterate oa the temperature at 3 asiag the follewiag eapressica. 


T; +1 Ml - 0) tj + 0 • f !l C 1 * V2* T lC 4 , T a m 

' Cl + C2 + C4 + C5 ' 


Coavergeaee is obtaiaed whea 


T n+1 -n 
T 3 “ ~3 


rll+1 


< c 


.001 


where e is the iaput parameter TOL set to a defaalt valoe of .001. 


0RIBIW.1. tT ■ • "•> 
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fb#o tfkt temperature T, ia calved for the total heat transfer pot unit area of 
panel ii computed 

| T, » t,| • (Cl ♦ U) 

Pi 

•ftd the equivalent conductivity u found ft on 



An exempli ee«e for an aluminum corrugated panel end the equivalent thermal con- 
duetanee la ahovn in Figure 4.10. 

the thermal capacitance ia computed from the maaa of the atruoture and 
split in two equal parte aeaigned to CAP1 and CAP2. total maaa la found and 
atored in XM. 

4.21 SOBRODtlKE flONEf 

Subroutine HOtfEf determiner the effective thermal conductivity* capacity 
and maaa of a honeycomb core aandwiched between two lay era* The geometric de- 
finition and material identifiers are contained in the named common GAP. 
Temperaturea of the outer layera T1 and T2 are alao found in GAP. Cell dimen- 
eiona are given by IB, the overall height, and H the diatance from one flat aide 
to the other for a hexagonal cell. The diatance D ia the pitch diatance ahown 
in Figure 4.11* 



Fig* 4.11 Honeycomb Cell Dimensions 
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The number of cells pc* m ft ares, tie number of cell wall*, and the volnme of 
the material makin \p t ha structure Ore computed. 

Boat transfer through the honeycomb ia aaatmod to bo by conduction through 
tho oora and radiation within each cell. Booh cell ia aisumed to have lit agual 
walls which ia shown in Figure 4.12. 
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Fig* 4.12 Honeycomb Cell Model 

Temperatures at i And %, Ti and T2 respectively, axe given. Temperituare at 3 
ie solved by relaxation. Radiation from nodes i to 2* 1 to 3 and 3 to 2 is com- 
muted by assuming a view factor of ,1 from surface 1 to 2 and .9 from 1 to 3. 
This is done in lieu of using the crossed string method (subroutine VFAC) since 
this is a three dimensional configuration. Changes in the view factors can be 
made easUy to reflect cell siae and honeycomb thickness, typical view factors 
as a function of cell site and honeycomb thickness are provided in table 4.4. 
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Tbo equivalent electrical network is shown in Figure 4,13 



Pig. 4.13 Equivalent Network Por Honeycomb 


This net no rk describes the heat transfer path between the upper and lower 
satiates. Equivalent conductors for the condoetion paths are determined from 


XC1 


Cl * CONK • C3 


Cl • CONK 4 C3 • CONK 4 Cl • C3 


and 


xr.2 


C2 • CONK • C3 


C2 • CONK 4 C3 • CONK + C2 • C3 


where CONK is the eontaet conductance between the core and the enter surfaces, 
currently set to 10* BT0/Ft*~8ee-*F. El. 82, and 83 are computed using the 
three temperatures and the view factors. Finally, the temperature at 3 is found 
by relaaation using the formula 

t" + 1 - (i - (0 T" ♦ , ft 1,(xcl 4 ”> 1 T2 '< x “ * M>) 

5 XC1 4 81 4 XC2 4 82 




<r 
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Ifl the expression above, 0 it tie relaxation facto* usually let to .5 in tit* 
input. Convenience it rapid and occurs wbeb 


jr‘ • ti TflL 

“^5 « TOL 


.001 • 


Total heat transfer it computed from the conductor values end three known tem- 
peratures. Equivalent conductance it then found by dividing by the temperature 
difference W An example cate it shown in Figure 4.14 for an all aluminum 
honeycomb structure. Capacitance CAP1 and CAP2 is found in addition to the mass 
of the structure and stored in XM. 


4*22 SUBROUTINE RGAP 

Subroutine 16AP computes the equivalent conductor value through a radiation 
gap. Thi« model also includes the thermal conductance of the upper and lower 
surfaces. The thermal model of the radiation gap used it shown in Figure 4.15. 


1 



Fig. 4.15 Network For Radiation Gap Calculation 
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Plfl. 4.14 Horteycomb Effective Thermal Conductance 




ORIGINAL pack ffi 

Of Poor quality 

The temperatures «t A and B are computed from the known temperature* at 1 and 2. 
All geometric and material paramo ten a to passed to fiGA* through the named com- 
mon GAP, the radiant interchange factor between the two surfaces ia assumed to 
be that of two infinite plate a and it found from tho etpreaeion below 



An iteration procedure ia used to find the temperatures at A and B given the 
temperature! at 1 and 2, Ti and T2 respectively. The conductors fKl and YK2 are 
found from the conductivity and the thicknesses tHl and TH2. rt3 ia a radiation 
conductor found from the following expression: 

Yk3 « (TA 2 + TB 2 ) (TA + TB) 

A-B 

The relaxation algorithm used to find TA and TB is as follows 


TA n+l - (1 -g) TA n + b 


Tl * YK1 4 TB n ♦ YK3 n 
YK1 + YK3 


and 


TB n+l * (i *g) TB n + $ 


t2 • YK2 + TA n • YK3 n 
YK2 + YK3 


o 


Convergence is found after 


TA"* 1 - TA" 
TA 5 


TB" +1 - TB n 

AND - < e - .001 

TB n 
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Equivalent thormal conductivity it found once TA and 19 ate solved by 

YK1 • YK2 • YK3 

XK •» - , 

YKl « YK2 + YK1 ‘ YK3 + YK2 * YK3* 


An # temple date it shown id Figure 4.16. 

Finally the mass. AM, and capacitance, CAPl and CAW, ate computed . 

4.23 SUBROUTINE STAND 

This subroutine computes the equivalent thermal conductance, capacitance 
and mass of a structure consisting of a standoff section and two outer surfaces. 
Beat transfer is assumed to be by conduction and radiation through the panel. 
Consider the small section of the 2-standoff panel shown in Figure 4.11, 



Ve choose & single enclosure bounded by two standoffs' mid-plane and assign 
three nodes to the tour surfaces, node 3 being common to the standoffs. The 
geemetrlo and material parameters are contained in the named common, BAP. The 
three aieterial thloknesses are nil, TB2, and 1B3 while the material identifiers 
ire HI, M2, and M3. Overall height is TB, the pitch is P and the flange width 
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il B. Temper a tore a it 1 aad 2 are T1 and T2. Tbeae parameter* ire aaaigned 
tbeir reapeetive variable name* ia aobreotiae LOAD vbicb if called immediately 
before STAND ia billed. Temper a tore at 9 il onkaovn, bat given the tamperatarea 
at 1 aad 2* geometric aad property data, the temperature at 2 aaa be aolved far 
by iteratiaa. The beat traaafer patha are eaadootiaa from tbe apper aad lever 
aarfaoee tbroogb each af tbe atandoffa* aiaoe tbe model la aiymmetrieal abaat a 
midplaae* aad radiatiaa from aode 1 to 2, aad from 1 to $ to 2. Tbe radiative 
eaeloaore for tbe apper lover aarfeeea* aad ataadoffa ooaaiata of fear plaaea 
abova ia Figaro 4. Id. 
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Fid* 4*18 Radiation Enclosure Model For 2-standoff 


The eoordiaetea of tbe plaaea malting op tbe eacloiate are eompated aad atored ia 
tbe ii(l.J) aad fT(l.T) array* vbere I la tbe plaae aamber aad J ia 1 or 2 
repreaeatiag tbe ead point*, tbe aabroatiaea VFAC aad SKIFF are called to de- 
fine geometric viev factor* aad area-laterebaage factor* ASF(I.I). 

From tbeae factor** radiation conductor* are formed from tbe folloviag ea- 
preaaioa 

K (J * - it? ♦ T$) (t 1 ♦ T^) 


ORIGINAL PA/r 
or poon QUrtUTi: 

Tbo equivalent network for the total beat transfer t tea surface 1 to 2 ii shown 
in Figaro 4.19. 


flA 1 rifl 



C2A 2 C4A 


Fig* 4.19 Equivalent Network For Z-Standoff 

Equivalent series conductors tte formed, Cl, C2, C3 end C4 which include a don- 
tact conductance and the conductance of the plate and atandoffe. Radiation con- 
ductor# Rl, Ri, R3, R4, and R5 complete the network. The etpresslcn fot the 
equivalent conductor Cl la 

CIA • C1B • C1C 

Cl * r 

CIA • C1B + C1B * C1C + CIA • C1C 

Similar egression* are used for C2. Cl and C4. the temperature at I la found 
by relaxation using the following expression 

T n+i • (i . e ) t n * p / T1 (R1 ♦ R2 + Cl ♦ C3) 4 T2 (C2 * R3 4 C4 + R4) \ 
3 3 \ R1 + R2 ♦ R3 + R4 + Cl + C2 ♦ C3 + C4 / 




Convergence it obtained when 
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« 



< e 


.001 


where is the input parameter TOL set to a default value of .001. 
The total heat transfer per unit of panel is then found from 


q « t T1 " T2 ) * M ♦ (tl - T3) » (C2 ♦ C4 + R3 + R4) 

P 

and the equivalent thermal eonduotanee is found from 


< 


XK - . 

T1 • It 

An example of the equivalent thermal eonduotanee calculation is shown in Figure 
4.20. 

The thermal capaeitanee is found and stored in CAP1 and CAF2. Total mass 
is found and stored in XM. 


4.24 StJBEOOTINB THINS 

■ <i 

: •! 

Subroutine THINS computes the capacitance and mass of a material with in- 
finite thermal eonduotanee. CAM and CAM each contain one half the total ther- ■: 

mal capacitance of the plate and Xtt contains the mass. The equivalent thermal < 

10 , 

• eonduotanee la set to 10 , while never used in computing temperatures, it is ; 

a • 

j used as a flag to indicate presence of infinitely conducting plate. 
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Section 3.0 


Input 

Ditft requited lor operation of EXITS comes from several source*. Date for 
the part tool ar case* control parameters, geometry etc. cornea froa the interac- 
tive input. Material proper tiei are on a property file and identified with a 
material number . the environment cornea from a file created by LANMIN which ia 
compatible with the EXITS input format. If the atrnctnral configuration has 
been modeled previously and saved on the structure file* the user can ship the 
structural modeling questions during the interactive input* and call in data 
from the structure file to describe the detail of the thermal protection system 
being investigated* A user may wish to study the effects of changing certain 
trajectory parameters, in such case he would create several LANMIN input files, 
te would then run the EXITS code at each body point being investigated saving 
the structure by assigning it a structure number and saving it on a structure 
file. The input for the subsequent trajectory cases would be greatly simplified 
since the geometry and materials have been defined and stored on a structures 
file. Several of these structures files may be created* each file defining the 
thermal protection system at selected body point locations on a particular vehi- 
cle. With these data defined* one can easily compare for thermal protection 
systems candidate vehicles*. 

The following discussion presents examples and descriptions of the input 
date required for input in the EXITS code. First we have the data defining the 
environment generated and stored by LANMIN. Neat the material properties file, 
which presently contains some twenty eight materials and can be added to or 
edited as the user chooses* is presented. Thirdly* an example of the file gen- 
erated by EXITS which saves the thermal protection system structural and geome- 
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trio definition and it called the structures file* 

Two examples of the interactive input which demonstrates us# of all of the 
option* and the seven atroetore type* net available in EXITS ate pro lent ed. A 
deacription of the ootpnt for theae oaaee ii given in Section VI. 

3.1 LANMIN GENERATED ENVIRONMENT RILE 

The environment for the body point nnder inveatigation ie generated by the 
LANMIN code and atored as a data file, the EXITS code reads this data from Unit 
7 in subroutine DATA2 and stores it in arrays. A body point description and 
body point number is read from this file by the following statement 


READ ( 7* 7 00. END*»1000) DESCRP. IBP 
700 FORMAT (A7 2. IS) 


until the body point specified in the interactive input is found. The environ- 
ment is then read immediately following this record by the read statement shown 
below 


R£AD(7.701)TM1 (IC) .ECI(IC) .HAtl(IC) .PRES1 (IC) 
701 FORMAT(2X,FG. l.m.B10.$.2X,Bl0.MOX*Ei0.3>. 


An example of the LANMIN input file is shown in Table 5.1. As can be seen, 
only the time, enthalpy based heat transfer coefficient, adiabatic wall enthal- 
py. and pressure is read. Data may be read in either the English units or 
Metric units shown in Table 5.2. Trajectory points are read until a negative 
time point is encountered. 





QUANTITY 


FILM 

COEFFICIENT 


ADIABATIC 

WALL 

ENTHALPY 


PRESSURE 


ENGLISH 


SECONDS 


FT -SEC 


METRIC 


SECONDS 


__ *g» 


M -SEC. 


JOULES 

Kg. 



Table 5.2 LANMIN Generated Environment Units 


5.2 MATERIAL PROPERTIES PILE 

*• tl ' r " 6PtS “ S * 1 **»““** “ »- « «b.6.u« DATA, wbloh find, 

.k. Tab,. 5.1, and t k.n ,..d. , b . f.„ 

0* .i. Arop.n y mi.. fon . notr-ablator „ ibl.ton n..p..,i„ ly . n . 

of Pooport, data ... contained in tk. fi„ INPl.r T end .... b , But • ... 
«... Tib,. 1.4. Dio*,* .... .„ . ttMUo . 

0«lT, kb«.M, tk. option fo. d«nait,, ,p,. ltl( , belt , t „n.ootivl- 

t». ..4 «i.,i,it» . fonotion of b otk t.*p.».t.„ ... ^ , m . 

propcrti.., .oblln.tion be|t , w#4 

tk. .blition fiotk of ,k... .top..,,.. ... i# p, t of 

pt fissure. 

U mit ‘b. pn.a.n, ptopct, fa. contain. 

t..«p .l.k, os. d in tk.»„ prot.etion d..„n. Uen . 

tiflontion nnabtfc. an. ,i„, .. tb . fin.t 0 f ,k. k..d.n .... ,o. ,k. d.n- 

*‘ M *’ tt ‘ h ** ll “ “ rd « •*“> “«• 1* «Ad kp tb, folio.1.4 at. tenant 

b£AD(e, 70i)B,j d.tesw, rasa , mpsu 
. 701 WMtT(l5.,l,15,41.A10.ut.AH.«m nt 
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MATERIAL LIST 


1. Aitusifioa 2025 -T 6 

2* Cork 

3* LR8I Coating 

4. BRSI Coating 

5. Ll-900 (Bivariate) 

6. FRSI Coating 

2 . FRSI Nonet Felt (Bivariate) 
8. SIP MV 560 

8. Titaninn 
10. Coated Colombian 
lit Copper 

12. Beryl linn 

13. Ziroonla 

14. Molybdenum 

15. RENE 41 

16. Micro Ouartt Pelt Incnlatlon 
12. INCONEL 612 

18. RCC 

ip! ChPelt 108 (Bivariate) 

20. Tantalum 

21. Tnageten 

22. INCONEL 1 250 

23. L 605 Cobalt 

24. BAINES 25 

25. MtN-K 1301 

26. LI 2200 (Bivariate) 

22. Nylon Phenolic (ABLATOR) 

28. B-Stage Cork (ABLATOR) 

29. MSA-1 (ABLATOR) 


Table 5.3 Material Identifier Numbers 



660,0 


1 a AL.707M6 DENSITY 

0.0 17$, 

10000. 175, 

1 AL.707H6 SPECIFIC HEAT 

0,0 .170 

310.0 .170 

460.0 .10$ 

660.0 ,210 

1330.0 .27$ 

1460.0 ,279 

10000. .279 

6 AL.7079-T6 CONDUCTIVITY 

0.0 1.4002-2 

260.0 1,4002*2 

460.0 2.0002-2 

760.0 2.5006-2 

660.0 2.7002-2 

960.0 2.0002-2 

2 H.7073*T6 QIISSIVW 

0.0 .12 

10000 . .12 

2 2 CORK DENSITY 660.0 

0.0 10 . 

10000 . 10 . 

2 CORK SPECIFIC HEAT 

0,0 .04 

10000. ,04 

2 CORK CONDUCTIVITY 

0.0 6,906*6 

10000. 6.906-6 

2 CORK EHISSIVITY 

0.0 .6 

10000. .8 

3 2 LRSICOAT DENSITY 1660.0 

0.0 104.0 

10000. 104.0 

9 LRSICOAT SPECIFIC HEAT 

0.0 .15 

210.0 .15 

310.0 .17 

460.0 .19 

710.0 .219 

960.0 .240 

1460.0 .285 

2460.0 .343 

3460.0 .390 

9 LRSICOAT CONDUCTIVITY 

0.0 1.181E-4 

210.0 1.161 E -4 

310.0 1.2906-4 

460.0 1.153E-4 

710.0 1.52*-4 

960.0 1.6766-4 

l'SO.O 1.9566-4 

2460. C 2.4536-4 

3460.0 3.27S6-4 
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Therwophyslcal Material Properties File 
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Table 5.4 


a Util COAT 6 M 881 VW 

0.0 .00 

100. .00 

2 Util COAT 0ENS1TY 2760.0 

0.0 104.0 

MO. 104.0 

9 Util COAT SPECIFIC HEAT 

0.0 .19 

10.0 .19 

10.0 .17 

60.0 .19 

10.0 .219 

60.0 .240 

60.0 .299 


60.0 .349 

M)«0 ,390 

9 MtitCOAT CONDUCTIVITY 

0.0 1.1812-4 

210.0 1 <1811-4 

110.0 1.2502-4 

160.0 1.3932-4 

110.0 1 .9282-4 

760.0 1 .6782-4 

160.0 1.996E-4 

460.0 2.4532-4 

160.0 3.2782-4 

2 HRSt COAT CHI88IVITY 

0.0 .99 

0000. .99 

2 11-900 DG48ITY 2760.0 

0.0 9.0 

0000. 9.0 

10 LI-900 SPECIFIC MEAT 

0.0 .070 

210.0 .070 

310.0 .109 

460.0 .190 

710.0 .210 

960.0 .292 

1460.0 .289 

1960.0 .300 

1210.0 .303 

1460.0 .303 
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Table 5.4 (Cohtlmied) 
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■*,0 

0.0 

tio.o 

460.0 

710.0 

960. 0 

210.0 

460.0 

10.0 



400.0 


2 

0.0 

) 000 . 


2 

0.0 

> 000 . 

2 

0.0 

> 000 . 

2 

0.0 

> 000 . 

2 

0.0 

> 000 . 

2 

0.0 

> 000 . 

e 

0.0 

110.0 

160,0 

660.0 

760.0 

1060.0 
1260.0 
1460.0 


LMOO CONDUCTIVITY 

0.0 .21 2.12 21.16 

1.3892-6 1,3691-6 2.083E-6 4.1662-6 
1,3692-6 1.3882-6 2.083E-6 4,1642-6 
2.0830-6 2.0832-6 2.777E-6 9.0832-6 

2.9992- 6 2,9992-6 3.4712-6 6,2902-6 

3.4722- 6 3.472E-6 4.6382-6 7.6662-6 
4.8612-6 4.8612-6 6.0002-6 9.0272-6 

6.4722- 6 6.4722-6 7.6392-6 1.0882-9 

8.9992- 6 8.9992-6 9.7222-6 1,3662-9 
1.1992-9 1.1592-9 1.2792-9 1.714E-9 
1.9792-5 1.9792-9 1.6942-9 2.1302-9 
2.0392-9 2.0392-9 2.1722-9 2.6162-9 
2,6832-9 2.6832-9 2.8332-9 3.2222-9 
3.2222-9 3.2222-9 3.4162-9 3.8612-9 
4.277E-9 4.277E-9 4.500E-5 5.0002-9 
5*2772-9 9,2772-9 9.4442-9 6.0802-9 

11-900 EM1SSIVITY 

1.0 

1.0 

FftSUOAT D2NS1TY 1160.0 
97.0 
97.0 

mi m SPECIFIC HEAT 
.39 
.35 

FftSI COAt CONDUCTIVITY 
5.0002-9 
5.000E-9 

FRSl COAT EMSSIVITY 
.80 
.80 

mi NONE! DENSITY 1160.0 

5.4 

9.4 

FftSl Nttti SPECIFIC HEAt 
.300 
.300 
.312 
.320 
.339 
.349 
.360 
.380 


211.6 

6 , 0602-6 

6 . 0602-6 

6.9442-6 

8,7772-6 

l.lilE-9 

1,3662-9 

1.667E-9 

2.0142-9 

2.4302-9 

2.944E-9 

3.5272-5 

4.309E-5 


4.9722-9 

6.111E-9 

7.2772-9 


2116.0 

6.4722-6 

6.4722- 6 

7.6382- 6 

9.4722- 6 
1.2022-9 
1.4832-9 
1.8272-9 
2.1722-9 
2 . 6162-9 
3.1382-9 
3.7772-5 

4.6382- 5 
9.3882-9 
6.7222-9 
8.0992-9 
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Table 5.4 (Continued) 


10 FR81 NOKX CONDUCTIVITY 


-7.0 

U.0 .021 

.212 

0.0 

1.8096-6 1.8096-6 

1.4446-6 

210.0 

1.0096-6 1.8096-6 

1,4446-6 

460.0 

2.2226-6 2.222E-6 

2.9166-4 

660.0 

2.3886-6 2.3886-6 

3.3336-6 

660.0 

2.6386*4 2.6386-6 

3*8336-6 

760.0 

2.8236-6 2.8336-6 

4.3096-6 

890.0 

3.0996*4 3.0996-6 

4.7226-6 

1060.0 

3.6116-6 3.6116*4 

5,7906-6 

1260.0 

4.1666-6 4.1666-6 

6.9446-6 

1460.0 

4.8616-6 4.8616-6 

8,3336-6 

2 

FRflt NOKX 6W881VITY 


0.0 

1.0 


10000. 

1.0 


2 

8IMTV960 oeem 

460.0 

0.0 

88.0 

10000. 

88.0 


4 

8IMTV960 SPECIFIC «AT 

0.0 

.273 


320.0 

.273 


360.6 

.270 


410.0 

.260 


460.0 

.269 


960.0 

.289 


660.0 

.300 


860.0 

.340 


1000.0 

.340 


7 

8IMTVS60 CONDUCTIVITY 

0.0- 

6.4726-9 


260.0 

6.4726-5 


360.0 

6.0446-9 


460.0 

6.8096-9 


660.0 

6.9996-9 


660.0 

4.926E-5 


96O.0 

4.0996-8 


2 

81MTV960 6HI8SIVITY 


0.0 

1.0 


10000. 

1.0 


2 

titanium osern 

1260*0 

0.0 

912.0 

10000. 

912.0 



2,116 21.16 211.6 2116.0 
2.2226* 6 2.S65E-6 2.8336*6 3.09SE-6 
2.222E-6 2,9996-6 2,8336-6 3.005E-6 
3,8886-6 4.790E-6 0.6906-6 6.722-6 
4.6116-6 9.6946-6 6.6116-6 6.9446-6 
6.2686-6 6.6666-6 7.6386-6 0.6996-6 
6.1116-6 7.6386-6 8.9446-6 9.8616-6 
6.9446-6 8.7776-6 1.0276-6 1.0616-9 
8.7606-6 1.1206-9 1.3196-9 1*2966-9 
1.0996-6 1.3886-9 1.6886-6 1.7226-9 
1.2836-6 1.7086-9 2.192-9 2.2086-9 
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6 

0.0 

4.0 

4.0 

4.0 

4.0 

WO, 

8 

0.0 

w.o 

4.0 

4.0 

WO. 

2 

0*0 

wo. 

2 

0.0 

wo, 

0 

0.0 

4.0 

4.0 

4.0 

4.0 

WO. 

0 

0.0 

W.0 

4.0 

4.0 

4.0 

WO. 

4 

0.0 

4.0 

4.0 

WO. 

2 

0.0 

WO. 

0 

0.0 

4.0 
-40.0 

60.0 

40.0 

4.0 
-4.0 
400. 


tlTMIUH SPECIFIC MEAT 
.006 
.006 
.129 
.146 
.14 
.160 

WtfilUH CONDUCTIVITY 
i ,2006-3 
1 . 2002-2 
1.9002-3 

2.0006- 3 

tlTWlSf *EHl88lVlTY 
.13 
.12 

CTD.COtUHB DENSITY 
962.0 

962.0 

CTD.COUW SPECIFIC HEAt 
.090 
.090 
.061 
.065 
.065 
.069 

CTD.COtUHS CONDUCTIVITY 
4.40E-3 
4.406-3 
6.10E-3 
7.306-3 

6.006- 3 

8.006- 3 

CTD.COldffi EJ1ISSIVITY 

.« 

.10 

.24 

.24 

COPPER DENSITY 

555.0 
555.0 

COPPER SPECIFIC HEAT 

.0001 
.0400 
.088 
.100 
.110 
.120 
.130 
.130 


ORIGINAL PAQ# IQ 

0F POOR ffi? 


204.0 


154.0 
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8 COPPER CONMVm 


IS 


is 


0.0 

.070 

40.0 

.070 

440.0 

,044 

940.0 

.041 

1440.0 

.096 

1940.0 

.037 

3440.0 

.091 

10000. 

.091 

a copper EniestviiY 

0.0 

.76 

10000. 

.76 

2 SERYILIUH DENSITY 1440.0 

0.0 

116.0 

10000. 

(16.0 

10 OSMIUM SPECIFIC HEAT 

0.0 

.000 

140.0 

.001 

340.0 

.20 

440.0 

.39 

940.0 

,98 

1440.0 

.48 

1940.0 

.79 

2440.0 

.64 

2940.0 

.64 

3440.0 

.64 

9 1 

OSMIUM CONDUCTIVITY 

0.0 

36.886-3 

8:1 

ft» 

940.0 

22.226-3 

1440.0 

17.008-3 

1940.0 

14.006-3 

2440.0 

12.908-3 

2940.0 

12.008-3 

3440.0 

12.008-3 

2 

ISMlllM EHISSIVITY 

0.0 

.19 

10000. 

.19 

2 

ZlftttNtA DENSITY 3340.0 

0.0 

349.4 

10000. 

319.4 

4 

216C0NIA SPECIFIC HEAT 

0.0 

.119 

440.0 

.119 

940.0 

.140 

1440.0 

.148 

2440.0 

.193 

3940.0 

.199 

4 

Itmik CONDUCTIVITY 

0.0 

2.3408-4 

440.0 

2.3408-4 

940.0 

2.9408-4 

1440.0 

2.7908-4 

2440.0 

3.4708-4 

3940.0 

3.6108-4 
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t MCONIA 0H8SMTY 

0.0 .00 

MOO. .00 

2 kxybdem density 2&0.0 
0.0 mo.o 

MOO. 640.0 

7 HO.VBDENUH SPECIFIC NEAT 
0.0 .093 

200.0 .092 

400.0 .060 

460.0 Ml 

460.0 .060 

060.0 .110 

400.0 .110 

7 MOLYBDENUM CONDUCTIVITY 
0.0 .0244 

100.0 .0244 

60.0 .0216 

60.0 .0200 

60.6 .6100 

60.0 .0160 

60.0 .0110 

2 NOLYBDENUH EHI86M1Y 

0.0 .20 

000 . .20 

2 RENE 41 DENSITY 2060.0 

0.0 912.0 

M)0. 912.0 

0 RENE 41 SPECIFIC HEAT 

0.0 .097 

60.0 .099 

60.0 .099 

60.0 .220 

WO. .290 

0 SENE 41 CONDUCTIVITY 

0.0 .0014 

».0 .0014 

60.0 .0022 

60.0 .0029 

ti.0 .0042 

2 RENE 41 EMSStVITY 

0.0 .20 

)00. .20 

t (UCRO m DENSITY 1460.0 

0.0 is 

100 . 3.9 

0 MOW ORtt SPECIFIC (CAT 
0.0 .106 

19.0 .106 

0.0 .2173 

0.0 .2312 

0.0 .2340 

0.0 .26136 

0.0 .270 

0.0 .27227 

0.0 .2990 


original PAGE RSI 

OP POOR QUALITY 
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6 MICRO tilt CONDUCTIVITY 


0.0 

7.3308-6 

939.0 

7.8808-6 

760.0 

7.6398-6 

860.0 

6.0308-6 

880,0 

6.352E-6 

1360.0 

1.9918-9 

1360.0 

1,7738-9 

1660.0 

1.6318-9 

3260.0 

3.6708-9 

a 

MICRO 0RT2 6M88MTY 

0.0 

.89 

10000. 

.89 

a 

DtCONL 617 OENSltY 

0.0 

931.86 

10000. 

981.66 

18 

INCflM. 617 SPECIFIC (CAT 

0.0 

.100 

938.0 

.100 

660,0 

.106 

660.0 

.111 

1060.0 

.117 

1660.0 

.131 

1660.0 

.137 

1860.0 

.166 

3060.0 

.190 

3860,0 

.197 

3660,0 

.163 

10000. 

.163 

la 

1NC0NL 617 CONDUCTIVITY 

0.0 

3.1768-3 

938.0 

2.1768-3 

660.0 

3.3388-3 

860.0 

3.6168-3 

1060.0 

3.8668-3 

1660.0 

3.4468-3 

1660.0 

3.727E-3 

1860.0 

4.0098-3 

3060.0 

4.3688-3 

3360.0 

4.9608-3 

3660.0 

4.8388-3 

10000. 

4.8388-3 

a 

INCM. 617 8HI881VITY 

0.0 

.19 

10000. 

.19 

3 

RCC DENSITY 

0.0 

103.7 

10000. 

103.7 
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II RCC SPECIFIC heat 
0.0 .080 

60.0 .080 

60.0 .190 

60.0 .170 

60.0 .848 

60.0 .899 

60.0 .990 

60.0 .360 

60.0 .390 

60.0 .480 

WO. .420 

11 ftCC CONDUCTIVITY 

0.0 1.898-4 

160.0 1.698-4 

460.0 5.3248-4 

660.0 7.178-4 

860.0 8.108-4 

060.0 6.7968-4 

460.0 9.2998-4 

1160.0 9.728-4 

60.0 9.728-4 

60.0 9,4918-4 

300. 9.4918-4 

8 RCC EHJS81V1TY 

0.0 .8 

60.0 .6 

60.0 .86 

60.0 .88 

60.0 .889 

60.0 .88 

60.0 .64 

300. .84 

2 O-fELT 108 DENSITY 1160.0 

0.0 6.0 

000. 6.0 

10 WELT 108 SPECIFIC NEAT 

0.0 .20 

60.0 .20 

60.0 .21 

60.0 .24 

60.0 .26 

60.0 .27 

60.0 .28 

60.0 .29 

60.0 .30 

000. .30 
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10 <HELf too CONDUCTIVITY 
*2.0 31.16 2116.0 

0.0 3,7006-6 6.01K-6 

*6.0 3,7006*6 6.0186-6 

*60.0 4.0006*6 0.0646*0 

*0.0 6.7006*0 0.0286*0 

60.0 0.0206-6 1.1576*9 

60.0 1.201-5 1.9746*5 

*0.0 !. 4396-5 1.8936*9 

60.0 1,7136*9 2.1396*5 

60.0 1.713E-9 2.4076*9 

000. 1.7136-9 2.4076-9 

0 O-PELT 108 6H1881V1TV 
0.0 .80 

60.0 .88 

00.0 .70 

60.0 .69 

60.0 .60 

600. .60 

2 TANTALUR DENSITY 4460.0 

0.0 1036.8 

000. 1036.8 

6 TMMUIN SPECIFIC HEAT 
0.0 .0326 

60.0 .0326 

60.0 .0931 

60.0 .0396 

60.0 .0396 

60.0 .0410 

000. .0410 

10 TANTALUM CONDUCTIVITY 
0.0 8.7906-3 

60.0 8.7906*3 

80.0 1.0876-2 

40.0 1.0676-2 

60.0 1.1706-2 

80.0 1.2106-2 

80.0 1.2306-2 

80.0 1.3706-2 

00.0 1.2996-2 

000. 1.2996-2 

3 TANTALUM 6R1S31V1TV 

0.0 .20 

000 . .20 

2 tUNOStEN DENSITY 4460.0 
0.0 1204.4 

000. 1304.4 

5 TUNQ9T8I SPECIFIC HEAT 
0.0 .0329 

60.0 .0389 

60.0 .0440 

60.0 .0470 

000. .0470 
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1 1WO8T0I CONDUCTIVITY 

0.0 1,606*2 

400.0 1.606-2 

3400.0 1,286-2 

3400.0 1.106-2 

4440.0 2,806-3 

4260.0 9,406-3 

10000. 9.406-3 

2 TUN03TEN ENJS8IV1TY 

0.0 .046 

10000. .066 

22 3 INC0M.X790 DENSITY 2260.0 

0.0 831.3 

10000. 831.3 

6 INC0N.X7S0 SPECIFIC HEAT 
0.0 .080 

260.0 .080 

460.0 .098 

1460.0 .136 

2460.0 .170 

10000. *170 

6 INC0NLX78O CONDUCTIVITY 
0.0 1.9006-3 

830.0 1.9006-3 

960.0 2.6006-3 

1460.0 3.4006-3 

2460.0 4.8006-3 

10000. 4.800E‘3 

4 INC0NLX730 BUSSIVItY 
0.0 .60 

1010.0 .60 

2038.0 .78 

10000. .78 

23 2 U05 CUBIT DENSITY 2260.0 

0.0 869.0 

10000 . 869.0 

4 1608 COBIT SPECIFIC tCAT 

0.0 .0968 

160.0 .0968 

2960.0 *1640 

10000. .1640 

6 1608 CfiBLT CONDUCTIVITY 

0.0 1.806-3 

830.0 1.806-3 

960.0 2.301-3 

1460.0 3.106-3 

2460.0 4.906-3 

10000. 4.906-3 

2 1605 CUBIT EMSStVltV 

0.0 .20 

10000 . .20 

24 2 HAYNES 28 DENSITY 2460.0 

0.0 870.0 

10000. 870.0 
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w.o 

m 

M.O 

■XJO. 


a HAYK8 25 SPECIFIC HEAT 
0.0 .13 

>00. *13 

0 HAYX0 29 CONDUCTIVITY 

O.0 I.3X-2 

1.3X4 
3.7SE-3 
0.990-3 
O.OSE-3 
3 HMCB39 CN168IVITV 
0.0 .70 

MO. .70 

3 HUM 1301 OOOm 1360.0 
0*0 20.0 
MO. 30.0 
3 MW 1301 SPECIFIC HEAT 
0.0 .313 

MO* .913 
7 MW* 1301 CONDUCTIVITY 

0.0 4.63X4 

4.63X4 
4.661(4 
0.3330*6 
0.77704 
6.39004 
6,29X4 
3 MW 1301 (MSSIVITY 
0.0 .03 


owciww. 

OF POOR QUAUIT 


W.O 

> 40.0 

60.0 

M.0 

M.O 

400* 


400. .43 

S LI-2200 
0.0 33.0 

400. 32.0 

2 LI-2300 

0.0 .19 

400. ,30 

15 LI-2300 

4.0 0.0 


DENSITY 


2760.0 


SPECIFIC (CAT 


0.0 

10.0 

60.0 

10.0 

"60.0 

" 10.0 

60.0 

10.0 

40.0 
QtO.O 

60.0 
60.0 
“60.0 
*60.0 
60.0 


CONDUCTIVITY 
.31 2.12 

3.00E4 3.6X4 4.44E4 
3.08(4 3.80(4 4.44(4 
4.72(4 4.72(4 6.11(4 
6.11(4 6.11(4 7.2X4 
6.66(4 6.66(4 8.0X4 
0.09(4 0.0X4 1.0X4 
0.44(4 0.44(4 1.1X4 
1.1X4 1.1X4 1.3X4 
1.3X4 1.3X4 1.6X4 
1.6X4 1,6X4 1.0X4 
1.0X4 1.0X4 2.3X4 
2.3X4 2.3X4 2.7X4 
2.6X4 2.6X4 3.1X4 
3,2X4 3.2X4 3.7X4 
3.6X4 3.6X4 4.2X4 


21.16 

7.2X-6 

7.2X4 

0.6X4 

1.0X4 

1.1X4 

1.2X4 

1.4X4 

1.6X4 

1.9X4 

2.3X4 

1.7X4 

3.3X4 

3.7X4 

4.9X4 

5.2X4 


211.6 

0.3X4 

0.3X4 

9.1X4 

1.3X4 

1.9X4 

1.7X4 

2.0X4 

2.9X4 

2.9X4 

3.41(4 

3.9X4 

4.6X4 

5.1X4 

6.0X4 

6.0X4 


2116. 

0.0X4 

0.0X4 

1.1X4 

1.9X4 

1.0X4 

2.11(4 

2.4X4 

2.0X4 

3.3X4 

3.8X4 

4.4X4 

9.3X4 

9.0X4 

6.9X4 

7.7X4 
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2 Ll-2200 EMSSIVITY 

0,0 .00 

10000* .00 

07 S NYLON m DENSITY 6210,0 

0,0 94.0 

10000. 94.0 

9 NYLON Pm SPECIFIC mi 

0,0 .20 

960.0 .21 

660.0 ,29 

960.0 .279 

10000, .279 

9 NYLON PHD) WMWCtlVW 
0,0 1.090-9 

460.0 1,990*9 

660.0 1,940-0 

910.0 2,900-9 

10000. 2.90E-9 

2 NVUM MEN EMISSIVITY 
0.0 ,09 

lOOOO. .89 

27 9 NYLON Pl€N BUBLIH. 1 W 

0,0 9670.0 

21.16 9670.0 

211.6 9800.0 

2116. 6210.0 

21160.0 6210.0 

27 9 NYLON PHEN HEAT-ABLATION 

0.0 11000.0 

21.16 11000.0 

211.6 10600.0 

2116. 9200.0 

21160. 9200.0 

28 2 B-Stfl.CORK DENSITY 1220.0 

0.0 31.0 

10000. 01. 

2 1-STOiCORH SPECIFIC HT. 

0.0 .46 

10000. .46 

4 B-STG.CORK CONDUCTIVITY 


0.0 

1.11 E-9 

660.0 

1.11 0-9 

1310.0 

0.93 8-6 

10000.0 

3.33 E-6 

2 

B-ST6.CORK EHI88IVITY 

0.0 

.8 

10000. 

.8 

2 

B-STO.CORK SUB. TEMP 
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1030.0 


K 3 B-mCWK HEAT ML. . 


0.0 

7000. 


9000. 

7006. 


ft 3 

nan 

OENBtTV 

0.0 

14.0 


10600. 

10. 


4 

094*1 

SPECIFIC KT. 

0.0 

.as 


990.0— 

- ...» 


1000. 

.96 


10000. 

.96 


4 

MH 

CONDUCTIVITY 

0.0 

0.30 E-6 

910. 

0.30 0-6 

1100. 

1.39 0-6 

10000. 

1.39 0-6 

a 

OSH 

OllOSWitV 

0.0 

.0 


10000. 

.0 


ft a 

HSH 

8UB.1W 

0.0 

1000. 


9000. 

1000. 


ft a 

K34-1 

HEA1-ABL. 

0.0 

3000. 


9000. 

3000. 


-1 

END OF Flii 


OKIQMAL p /KU :. f|P , 

Qh quality 
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V3/ 




ED * Material Identifier Number 

JD - Number of entries in Table (down the page) 

TfiSti - Material Name 

testa - Property (Density* specif id host* etc.) 
TMPMXA ■ Maximum allowable temperature for material, 
(Reid on density header card) 


The next JD record* are then reed to told the property into arrays using the 
following read statement and format. 


R£A0(MO2) (AftD(MR),MR"l,8) 
702 FO&MAT($X*6ElO.O) , 


Ft>* a monovariate table* the independent variable is ARD(l) and the dependent 
variable is ARD(2). For a bivariate table* ARD(l) is the negative of the number 
of pressure entries, going across the page, the pressure values are stored in 
ARD(2) through ARD(8)* 


The next JD records are read by the same read statement. ARD(l) will then 
be the temperature while ARD(2) through AR0(8) are the properties 
i. e. conductivity or specific heat. 

All property tables must be arranged in a particular order. The first pro- 
perty must be density followed by specific heat* conductivity and emissivity. 
For a ablator-sublimer material, sublimation temperature* and heat of ablation 
are added as the fifth end sixth properties. To flag a material as being an ab- 
lator sublimer* the material identification number is included on the header 
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Oftrd tot fhe-eublimstian temperature Unit* tot the various proper tie, 

*** give* l* Table 5,5 and are always used regardless of the units let died in 
the input. 


PROPERTY 

UNITS 

DENSITY 

MAXIMUM ALLOWABLE TEMPERATURE 
SPECIFIC BRAT 
THERMAL CONDUCTIVITY 
EM1SS1VITY 

SUBLIMATION TEMPERATURE 
HEIGHT OF ABLATION 

LBM./FT.* 

DEGRBES-R 

BTU/LBM*- R 

BlU/Ft-SBC- R 

DIMENSIONLESS 

DEGREES-R 

BTU/LSM. 


TABLE 5.6 Material Property Units 


5.3 STRUCTURES FILS 

The SxtTS program will create a file which saves the geometric and material 
definition of the thermal protection system being analysed. The user assigns 
this definition a structure number which is used to identify the structure for 
later use. fly doing this* the user can reevaluate the same thermal protection 
system under different environment conditions with a much reduced interactive 
input. The name of the structure file is input during the interactive portion 
of the input. Structures arc added to the file at the bottom or below any 
structure which already eaist in the file. If any of the eaisting structures 
have the structure number the user is using to identify the new structure* a 
message will appear during the interactive input ashing for a new identification 
number. Therefore, each structure in the file till have a distinct structure 
identification number. 

An erampie of a structure definition is given in Table 5.6 for the demons- 


8i 



tratiofc case i presented in Section 5,4 end 5,d, No format specifications need 
to bo discussed here iince EXITS creates and reads tbit file exclusively. 

The first record gives the identification number, the number el layers, the 
number of material! per layer and the number of dimensions per layer to define 
the geometry* The next two line a are a description typed in during the interao** 
Input * The next four lines describe each layer. The firat entry gives the 
layer type. Material typea are given in the next three locations. Finally, the 
next six floating point values define the layer geometry dimensions in feet. 


14 3 6 

TEST CASS STRUCTURE FOR LANGLEY COTTER 
ABLATOR SUBLINER - RADIATION OAR - THIN SKIN - 1 STANDOFF 


7 

28 

0 

0 

0. 833333 4E-01 

O.OOOOOOOE+OO 

O.OOOOOOOE40C 

O.OOOOOOOE400 

2 

10 

1 

0 

0.10416671-01 

0.6333334E-02 

0.00000008400 

0.1250000MQ 

6 

1 

0 

0 

O.OOOOOOOE40D 

O.ODOOOOOE400 

O.OOOOOOOE 4 OO 

0.2900000E-01 

5 

17 

10 

1 

0.1166667E-01 

0.1500000E-01 

0.7916667E-02 

0.1666667E4M 

2 4 


3 


6 




TEST CASE STRUCTURE FOR LANGLEY CENTER 




SLAB-SLAB' 

- KONEV CM - 

CORRUGATED 




1 

4 

0 

O 

0.8333334E-02 

O.OOOOOOOE4CO 

O.OOOOOOOE4CO 

O.OOOOOOOE+OO 

1 

5 

0 

0 

0.4166667E-01 

O.OOOOOOOE+OO 

O.OOOOOOOE40D 

0.0060000E400 

3 

1 

1 

1 

0.1000000E-01 

0.9166666E-02 

0.7916667E-02 

0.6250000E-01 

4 

17 

17 

9 

0.6666666E-O2 

0.6666666EHH2 

0.1000000E-01 

0.8333334E-01 

3 1 


3 


6 




ABLATOR SUBLIHER 







HALF INCH Of 

CORK 







7 

27 

0 

0 

0.4166667E-U1 

O.O0OOOOOE4OO 

O.OOOOOOOE400 

O.OOOOOOOE400 


|^|||| 
i ffn 


O.OOOOOOOMO O.OOOOOOOEvOO 
O.0OOOOOOE*OO 0.00000001400 
O.OOO0OOOMO O.OOOOOOOfrOG 
0.6666667E400 0.6230000E-01 


0.0000000*400 0.0000000*400 
O.OOOOOOOE+OO o.ooooocor ou 
0.0000000f400 O.2SOOGOOE-0) 
0.6666667E-01 9.0000000E400 


O.OWVOOOE400 O.OOOOOOOE4QO 


TABLE S.6 Structure file for Sample Case Given 
In Section 5.4 And 5.6 
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Of POOR QUALITY 


J, 4 -EXAMPLE CASE ONE (ABLATOR, RADIATION GAP, THIN SKIN, 2- STANDOFF) 


Tbit flfit o sample oeae configuration it not repreaeatative of ift actual 
thermal protection tyttoa structure but serves to illnitsato tbe interactive 
in^nt requirements for font of the structural type a. The conf Mutation for this 


oaae ia shown in Figure 5.1. 


T V/y 

Ablator 


Z-Standoff 


(B*$tg. Cork . 


oiumblum 


Radiation » 
Bap U* 


Thin .* 

Skin 1 


Inconel 617 


(Aluminum 7075) 


(Columbian) 


fig. 5.1 Configuration for Test Case Number One 




jBfeftC 'Ll! am 


SsffSSiJK 


i iaa 






Al shoWn in figure 3.1, an ablator 1,0 inch thick it placed on top o t a 
Colombian) cheat *123 inches in thickness, Next #e have an aluminum plate *4 
inohei thick placed o cat an Inconel 617 cheat .14 inches thick. An aluminum 
2-standoff structure separatee the xneonel 417 sheet from a columbium- backfaoe 
sheet .18 inches thiek. We see that the .4 inch aluminum plate is divided at a 
depth of .1 inches from the top snrfaoe. This is required to define the radia- 
tion gap model since a lover surface plate is needed. Hie thermal resistance in 
the .1 inch aluminum is included in the radiation gap model and does net effect 
the time step. The aerothermodynamie environment is located on the file 
MIN IVEB.DAT and Identified by body point number 8. The structure vac saved on 
the structure file SlttJCTtJKE.FIL vhich is shove in Table 3*6. Also included in 
this example is the input required to rerun this ease using the structural de- 
finition saved on SIKOCTUR&.FIL* The interactive input is shorn in Table 3,7, 
For the ease vhere this example is rerun using the saved structure, the interac- 
tive input is shovn in Table 3.8. 
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TaMe 5.7 (Concluded) 


M example case one rerun from structures file 


fl*** we beve reran tbe an previously described using the diti stored ot> 
tlie structures Tile wbicb defines tbe thermal protection system, Title 5 , 8 
ebows the input for tbit ease. As ean be seen, the interactive input bee been 
greatly simplified, Tbe description ©f lines one to fbirtoen bis been previous** 
ly given. At line 14, tbe response is t (yes) since we have already described 
tbe etroetore. Lino IS asks for tbe strnetnrc identifier ntusber which was as** 
signed prev lonely « If tbe answer at line Id is t (yes) then control is returned 
to line 1 $ if N (no) we have completed tbe interactive input and EXITS goes into 
execution. 
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M EXAMPLE CASE WO (SUB, SUB, BONEVOoHB AND CORRtJOATEO) 

Xfi thil AsaffiplA the inppt requirements for the remaining three itroefarea 
(Slftt, lleney float), Corrugated) ltd demonstrated, Again, thll ease i« not 
representative of s thermal probation syatea but amea to illustrate the input 
requirement! for the remaining three stroetores, The configuration fot thia «a- 
Ample esae ia shown in Figure s,2, 



F<9. 5.E Configuration for Tost Case Number Two 


At lUetn in Figure M a 14-00G insolation .1 ioob thiol tith • .10 inob 
coming of BHSI coating »»teriai i# backed op. by l booeydoftb Rtfnotttf# , 1 & 
inch 6 1 thiol and i corrugated atrootore. Different water ini a are naed in tbe 
boneyoowb «nd corrugated layera to illnatrate their inpnt. The aarethormedynaar- 
ie environment i« defined on the file M1NIVER.DAT and identified by body joint 
g. fbe atmetore was aaved on the atrootore file 0T80CTOfiE.F& and ia included 
in tho enanple abewn in Table 5.6. The interactive inpot for thia ease ia 
preaented in Table S«9. 
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Table 5.9 (CtoncTuded) 







this lection presents the results of the two staple esses used as examples 
of the input requirements in Soetion 5*0. Input for the first esse is presented 
in Section 5*4 while Seetion 5*5 eontsins input requirements for the second 
esse* Output for these examples is shown here for s typical Shuttle reentry 
trajectory* these structures shewn in Fi|S* 5.1 and 5.2 are not examples of a 
TPS design hut are only presented here to exhibit the fi&ITS code capabilities. 

the first case is the ablator-radiation gap*-thin skin- Z standoff structure 
shown in Pig. 5*1. fie suits are presented in table d.l for this case, the out- 
put is divided into Sections A, fi, C . , , B for deseription purposes. 

Seotion A in table 6*1 shows the parameters* flags, and time controls for 
this case. These values are either set during the interactive input or default 
values are used. A deseription of these variables is given below: 

TSTAfiT - Initial time 

TSTOP - find time 

TXMPt - time between printouts 

DTlM - Parameter which controls node spacing for slab 
or ablator structures 

STAB - Maximum allowable time step is divided by this 
number to assure stability 

tOL - Convergence criteria for equivalent conductivity 
calculations 

BET - fiel station factor for iteration scheme used to 
compute equivalent conductivity 

N6P - Number of body points 

NEXT - Number of time steps between calculation of new 
conductor and capacitor values 

NSTP - Maximum number of time steps 

IPFLAg - Flag for printing oonduotor and capacitor values. 


Seetion B presents the thermopyhsical property values used in the analysis. 
Only the properties for the materials used are shown here. Values for density, 
specific heat, conductivity, emissivlty* and for an ablator material, eubilma- 
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tion temperature and heat of ablation ire given. 

Button C presents the LANMIN generated environment for the body point 
specified. Values tot film coefficient* recovery enthalpy* and pressure in 
given* 

Section 0 chows the node positions and numbering sequence* structure type* 
ttitetiil and conductor amber of the network. Initial temperature* «Uk tem- 
perature and the view factor to the link ia alto ihown. 

Section t depict# • graphic representation 0 f the model including the node 
ipacing sad materials. A double horizontal dashed line aeparates the structure 
type#. Node location! ire represented by an *»0** on the left hand aide. 

Section P presents the temperature and load hiatoriea of the structure be- 
ginning at initial time* At each output* the total number of time steps and the 
value of the last time step taken are shown. Next* the integrated heat loads 
and heat rates are presented along with the net heat into and out of the struc- 
ture. Surface recession and recession rates are shown. The temperature at each 

node within the structure and the node location, XX * 0.0 being the initial sur- 
face* is given. 

Section 6 is presented each time a node is dropped from the network as the 
surface recedes. The same information is contained here as in Section E. 

Section B gives the unit mass of the TPS and a message if a temperature has 
exceeded a material limit as specified in the material property tables. 

Output for the second enample is presented in Table d.2. A description of 
this case 11 not necessary due to its similarity to the first exempts. 



mm* 

OTlM > 

»p • . 


0,000 

10.000 

1 


0.000 

I 


TBTOP 

SfAfl 

NEXT 


1410.000 TIHPt > 100,000 

a.ooo m l . o.ooi set - 

00 m • 3000 IPFLAD ■ 


t aueb 


i-bto.cork - m no. as 


MAXIMUM TQfBlAm . 760.40 DEO P 


tw». 
(010 P) 

DENSITY 

(IBN/CU.FT) 

-0.4596MB 

0.9540E+04 

0.3100E+02 

6.31006+02 

TEMP. 
(DEO P) 

SPEClflC HT. 
(BTU/LKHEfi P) 

-0.45WWJ3 

0.9540E*04 

0.4600E*00 

0.46006+00 

TEMP. 
(DEC P) 

CONDUCTIVITY 
(BTU/PT-S-DEO P) 

-MWiEKfl 

0.4004E*08 

0.85046+03 

0.9540E+04 

0.11 IDE -04 
0.11106-04 
0.33366-05 
0.33306-05 

Temp. 

(DEO P) 

EMIS8IVITY 

(DIMENSIONLESS) 

-C.459AE+03 

0.9540E+04 

0.60006+00 

0.60006+00 

PRESSURE 

(U/SO.Pt) 

suB.t&r 
(DEO P) 

o.ooooe+oo 

0.5000E404 

0.70046+03 

0.76046+03 

PRESSURE 

(LB/8Q.PT) 

HEAT AIL. 
(BtWLBHI 

O.OOOOE400 

O.SOO0E«O4 

0.70006+04 

0.70006+04 
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Table 6.1 Output Pot Example Case One (Table 6.7) 
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CTD.Cft.OHB - NAT ND. iO 


HMINOH TEMPERATURE 3900.46 DEO F ORIGJNAl. PAGE ® 

OR POOR QUALITY, 


TEMP. 

DENSITY 

(DEB.FI 

(UIII/CO.Ftl 

-0.4594&463 

6.96206*63 

0.99406404 

o.ttaoe+oa 

TEMP. 

SPECIFIC HEAT 

(DEB F) 

(IW/UN-DEO F) 

■0.49966463 

0.59006-61 

0.4000E+M 

0.59006-61 

D.80D4EHO 

0.61006-01 

0.60046403 

0.69006-01 

0.1000E404 

0.6300E-01 

0.9540E404 

0.6J0DE-01 

TEMP. 

CONDUCTIVITY 

(DEOF) 

(DTU/FT-S-DEB F) 

-0.49966463 

0.44001-00 

0.7040E+02 

0.440(6-08 

0.5004E«09 

0.61006-08 

D.1000E«04 

0.79006-08 

6.20006*04 

0.00006-08 

0.99406404 

0.00606-08 

TEMP, 

EMtSSlVITY 

(DEB F) 

(DIMENSIONLESS) 

-0.45966403 

0.19006400 

0.27006404 

0.19006400 

0.36006*64 

0.84006400 

0.99406404 

0.84006400 


AL7079-T6 - NAT NO. 1 

mm TENPERAtURE 300.40 DEO F 

TOT. DENOItV 

(DEO FI (UR/CU.Ff) 

-0.4S96S463 O.mOE+tt 

0.95406404 0. 17506+03 


Table 6.1 (Continued) 


tor. 

(KttF! 

-0,45966*03 

0.40006*00 

0,20046*03 

0.06046*03 

0.10000404 

0.09406*04 


SPECIFIC HEAT 
(BTU/LM*06D F) 
0. 17006*00 
0.17006*00 
0.10906*00 
0.31006*00 . 
0.37906*60 
0.27906*00 
0.37906*00 


TSf. CONDUCTIVITY 
(06(1 F) IBTU/FT-S-Oefl FI 

•0.49046*08 0.14006-01 
-0.19966*03 0. 14006*01 
0.40006*00 0.20006-01 
0.30046*03 0.29006-01 
0.40046*03 0.27006-01 
0.50046*03 0.29006-01 


TW. EHISSIV1TY 

<060 F) (0lH6N8I»iE88> 

-0.45966*03 0.13006*00 

0.99406*04 0.12006*00 


INCONL 61? - HAT NO. 17 
MAXIBUH TEMPERATURE 1800.40 068 F 

TW. 


(060 F) 

-0.49966*03 

0.99406*04 


m. 

(066 F) 

-0.45966*03 

0.70406*03 

0.20046*03 

0.40046*03 

0.60046*09 

0.10006*04 

0.12006*04 

0.14006*04 

0.16006*04 

0.18006*04 

0.20096*04 

0.95406*04 


DENSITY 

(UH/CV.FT) 

0.52196*03 

0.52196*03 


SPECIFIC HEAT 
(8TU/L8N-06B FI 

0 . 10006*00 

0.10006*00 

0.10406*00 

0.11106*00 

0.11706*00 

0.13106*00 

0.13706*00 

0.14406*00 

0.15006*00 

0.15706*00 

0.16306*00 

0.16306*00 
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Table 6.1 (Continued) 


tor. 

USD F) 

•6.4994640 3 
0,76406403 

O.O0O4E«4» 

6.4004£«0d 

0.40046400 

o.ioooe^ 

0.13006404 

0.14001404 

0,14006404 

o.ieooe*04 

0.90006404 

0.99406404 


Mietivm 

ifiTU/Ft-fl-KO n 

O.WiMfl 

o.amfrtt. 

o.aa-oa 

0.26i(£-03 

o.a«M 

0.34496-03 

0.37376-02 

0.400S6-0I 

0.43826-69 

o.4S6oe-oa 

6.48306-09 

0.46386-03 


original page css 

OF POOR QUALITY 


TOP. 
(060 6) 

•0.49946403 

0.99406404 


GfllSStVlTY 

(01H6NS10NL6S9) 

0.19006400 

0.19006400 


Table 6.1 (Continued) 
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f 


vrj 


i 

BODY POINT fMffiER * 3 WNPU RMIVER INPUT TABU 


TINE FSUt Off. 

(SEC! (Ififl/SWI-SECI 

o.oMoe+oo fi.MSoe-w 

o.wom o.usiehh 

0.1000*403 O.29GSE-04 

0.1250*403 0.36916-04 

0.1500fi+03 0.93676-04 

0.17906409 0.09096-M 

0.f00tt*09 0.1203E-03 

0.22906409 0.17991-03 

0.27906403 O.292B6-03 

0.30006403 0.30196-03 

0.39006403 0.37106-03 

0.40006403 0.39746-03 

0.49006403 0.41006-03 

0.90006403 0.42996-03 

0.92806+03 0.43296-03 

0.9960*403 0.44026-03 

0.99806403 0.49196-03 

0.6400*+03 0.46616-03 

0.69406+03 0.93206-03 

0.68206+03 0.68936-03 

0.71006403 0.71826-03 

0.73806+03 0.89376-03 

0.79206403 0.10136-02 

0.76606403 O.1I40E-O2 

0.78006403 0.13286-02 

0.79406+03 0.15406-02 

0.80806+03 0.17846-02 

0.8220*403 0.20906-02 

0.85006+03 0.23891-02 

0.87006403 0.26196-02 

0.90606+03 0.28966-02 

0.97606403 0.34706-02 

0.10046404 0.39006-02 

0.10326+04 0.42676-02 

0*10606+04 0.44616-02 

0.10746+04 0.44846-02 

0.11026+04 0.44996-02 

0.11166404 0.49576-02 

0.1144*04 0.48446-02 

0*11726+04 0.51336-02 

0,12006+04 0.51536-02 

0.1240*404 0.54626-02 

0.1200*404 0.58146-02 

0.1390E+04 0.6301**02 

0.1380*404 0.61696-02 

0.1410*404 0.58446-02 


BEUWMPY. PRESSURE 
(BfU/LWI) (IBF/SO.fTl 

0*11266+09 0.12526-01 
0.1124*409 0.34496-01 
0.11236+09 0.1090*400 
0.11236+09 0.1992E+00 
0.1132*409 0.37771+00 
0.1123*40$ 0.7313*400 
0.1124*409 0.1440*401 
0.1127*409 0.2802*401 
0.1113*409 0.7749*401 
O.1109E+O5 0.1120*402 
0.1092*40$ 0.17796+02 
0.1060*40$ 0.2004*402 
0*10276+09 0.2121*402 
0.9966*404 0.23146+02 
0.9769*404 0.2J79E402 
0.9577*404 0.2470*402 
0.9270*404 0.2999*402 
0.8966*404 0.2806*402 
0.8876*404 0.2919*402 
0.8680*404 0.3124*402 
0.8490*404 0.3105*402 
0.8228*404 0.3303*402 
0.8106*404 0.3425*402 
0.7984*404 0.39696+02 
0.7863*404 0.3738*402 
0.7738*404 0.3927*402 
0.7610*404 0.4128*402 
0.7476*404 0.4368*402 
0.7149*404 0.4938*402 
0.67796+04 0.99466+02 
0.6389*404 0.6202*401 
0.5284*404 0.7639*402 
0.48006+04 0.8486*402 
0.4291*404 0.8986*402 
0.3797*404 0.9289*402 
0.3562*404 0.93016+02 
0.3117*404 0.9302*402 
0.2903*404 0.9263*402 
0.2496*404 0.9407*402 
0.2125*404 0.9569*402 
0.1813*404 0.9244*402 
0.1293*404 0.8645*402 
0.1034*404 0.8921*402 
0.6930*403 0.8369*402 
0.96976+03 0.8032*402 
0.4945*402 0.764X402 
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TWIT 


structure definition 

POINT 9 


100.00 DEO f 

TBtNK - 0.00 DEO F FIJ - 

1.000 

NDOE NUMBER - 

1 DISTANCE FROM SURFACE > 

0.000000**00 IN. 

CONDUCTOR 

m*m 

WtERlAL 
NODE NUMBER - 

NUMBER - I 

TYPE • 7 ABLATOR SUBUMER 

I • 1-STIJ.CjSRH 

9 DISTANCE FROM SURFACE - 

0.4166ATE-41 IN. 

NODE NUMBS) • 

8 DISTANCE FROM SURFACE > 

0.41AA67E-01 IN. 

CONDUCTOR 
STRUCTURE 
MESIAL 
NODE NURSES ■ 

NUMBER- 9 

TYPE > 1 ABLATOR SUBLfMER 

I - B-STO.CORK 

3 DISTANCE FROM SURFACE - 

0.S39333E-0I IN. 

NODE NUMBER - 

3 DISTANCE FROM SURFACE • 

0.833333E-01 IN. 

CONDUCTOR 

sirucnre 

MATERIAL 
NODE NUMBER- 

NUMBER • 3 

TYPE > 7 ABLATOR SUBLINER 

1 • 6-STQ.CdRK 

4 DISTANCE FROM SURFACE - 

O.1S9OOOE*0O IN. 

HIDE NUMBER - 

4 DISTANCE FROM SURFACE - 

0.129000E*00 IN. 

CONDUCTOR 
STRUCTURE 
MATERIAL 
NODE NUMBER- 

NUMBER- 4 

TYPE - 7 ABLATOR SUBLIMES 

1 - 8-8TQ.C0RK 

9 DISTANCE FROM SURFACE • 

0.1AAAA7E*00 W. 

HIDE NUMBER « 

9 DISTANCE FROM SURFACE - 

0.1AAAA7E*00 IN. 

CONDUCTOR 

STRUCTURE 
MATERIAL 
NODE NUMBER - 

NUMBER- 9 

TYPE - 7 ABLATOR SU6LIMER 

t - B-STfl.CORK 

A DISTANCE FROM SURFACE - 

0.»6333E*00 IN. 

MRU NUMBER - 

A DISTANCE FROM SURFACE - 

0.9003331*00 IN. 

CONDUCTOR 
STRUCTURE 
MATERIAL 
NODE NUMBER- 

NUMBER - A 

TYPE « 7 ABLATOR SUILIN9I 

1 - B-8T0.CQRK 

7 DISTANCE FROM SURFACE - 

0.290000E«00 IN. 

NODE NUMBER- 

7 DISTANCE FROM SURFACE - 

O.ttOOOOftOO IN. 

CONDUCTOR 
STRUCTURE 
MATERIAL 
NODE NUMBER- 

NUMBER ■ 7 

TYPE - 7 ABLATOR SUBLtlCR 

1 > B-STG.CflRK 

S DISTANCE FROM SURFACE > 

0.a«lAA7l*00 IN. 
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IDS 




t 

k! 


i 


a 

-* f 

V | 


- 1 * 


l! 




n 


node number- 0 distance from surface « o,Mm*w in. 

CONDUCTOR (dWEH « 0 

STRUCTURE TYPE • 7 ABLATOR. WPllfBI 

MTERIAL l-B-SItUOftK 

NEK HINDER " 9 DISTANCE FROM SURFACE - 0,33»*00 IN, 


NODE WINDER • 0 DISTANCE FROM SURFACE * O,*WE«0O IN, 

CONDUCTOR (UNDER ■ 9 

STRUCTURE 1WE ■ 7 ABLATOR SUMMER 

NA1ERIAL t • B-STfl.CORK 

NODE NUMBER * 10 DISTANCE FROM SURFACE « 0.379000E*00 IN, 


NODE NUNBER ■ 10 DISTANCE FROM SURFACE ■ O,379OOOE*0O IN. 

CONDUCTOR NUMBER ■ 10 

STRUCTURE TYPE - 7 ABLATOR SUBlIHER 

MATERIAL 1 - B-flTO.OM 

NODE NUNBER- It DISTANCE FROM SURFACE * 0.416667E*00 IN, 


NODE NUMBER- It DISTANCE FROM SURFACE - O.416667E*0O IN. 

CONDUCTOR NUMBER - tl 
STRUCTURE TYPE - 7 ABLATOR SUBLIHER 

MATERIAL 1 • fl-STO.CORA 

NODE NUMBER • 12 DISTANCE FROM SURFACE - 0,4583331*00 IN. 


NODE NUNBER - 12 DISTANCE FRON SURFACE - 0.45KB3E*00 IN. 

CONDUCTOR NUNBER > 12 

STRUCTURE TYRE - 7 ABLATOR SUBLIMED 

MATERlM. 1 * B-STG.CORR 

NODE NUNBER - 13 ' DISTANCE FROM SURFACE - O.9OQO0OE-KIO IN. 


NODE NUNBER - 13 


DISTANCE FROM SURFACE - 0.9000006*00 IN. 


CONDUCTOR NUNBER • 13 

STRUCTURE TYPE - 7 ABLATOR SUBltflER 

MATERIAL 1 * B-STG.CttK 

NODE NUNBER - 14 DISTANCE FROM SURFACE - 0.9416671*00 IN. 


NUDE NUMBER- 14 DISTANCE FRON SURFACE » 0.5416676*00 IN. 

CMWCTOfi NUNBER • 14 

SIRUCtURE TYPE • 7 ABLATOR SUBLIHER 

MATERIAL 1 • B-STG.COBK 

NODE NUMBER - 19 DISTANCE FR» SURFACE - O.S83333E+00 IN. 


NODE NUMBER • t9 DISTANCE FROM SURFACE - 0.9633331*00 IN. 

CONDUCTOR NUNBER - 19 

STRUCTURE tYPE • 7 ABLATOR 3UBLINER 

MATERIAL 1 - B-STQ.CttH 

NODI NUMBER ■ 16 OISTANCE FROM SURFACE ■ 0.6290001*00 IN. 
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ORIGINAL W'M W 
OF POOR QUALITY 




m mm ■ u distance from surface • 

conduct* f»v v , u 

SmmtfK • 7 ADUTtSR SUBLtfER 

NATER7AL 1 - 6 -STD, CORK 

RODE NUMBED « 17 DISTANCE FROM SURFACE - 


m NUMBER - 
CONDUCTOR 

structure 

MATERIAL 
NODE NUMBER* 


IT DISTANCE FROM SURFACE * 

NUMBER- 17 

WE * 7 ABLATOR SUBLIMES 

1 • B-0fO.COM 

16 DISTANCE FROM SURFACE - 


WOE UMBEL * 18 DISTANCE FROM SURFACE • 

CONDUCTOR NUMBER * 10 

STRUCTURE WE ■ 7 ABLATOR SUBLIMES 

MATERIAL 1 - fi-STQ.COK 

NODE ‘JUHffiR * 19 DISTANCE FROM SURFACE - 


WDE (AMBER - 19 DISTANCE FROM SURFACE * 

CONDUCTOR NUMBER * 19 

STRUCTURE WE * 7 ABLATOR SUBLIMES 

MATERIAL l-B-8tQ.COM 

NODE MMBER « DO DISTANCE FROM SURFACE * 


WOE NUMBER * 80 DISTANCE FROM SURFACE ■ 

CONDUCTOR MMBER » DO 

STRUCTURE TYPE • 7 ABLATOR SUBLtNER 

MATERIAL l-B-STfi.COM 

WDE MMBER • 21 DISTANCE FROM SURFACE * 


WDE MMBER * 21 DISTANCE FROM SURFACE * 

CONDUCTOR NUMBER • 21 

STRUCTURE WE • 7 ABLATOR SUBLtNER 

MATERIAL i«l-8Tfi.C0M 

WDE MMBER - 88 DISTANCE FROM SURFACE ■ 


«BE MMBER- 28 DISTANCE FROM SURFACE - 

CONDUCTOR MMBER - 82 

SUTURE TYPE - 7 ABLATOR SUBLtNER 

MATERIAL l-B-8Tfi.COM 

NODE NUMBER • 83 DIStANCI FROM SURFACE > 


NODE MMBER • 
CONDUCTOR 
STRUCTURE 
MATERIAL 
WDE NUMBER - 


23 DISTANCE FROM SURFACE • 

NUMBER • 23 

WE - 7 ABLATOR SUBLINER 

1 - B-8tfi.COM 

M DISTANCE FROM SURFACE - 


O.62BOOOE+0O IN. 

0.&667E40 IN. 
0*tttt67E*00 IN. 

0.70B334E40 IN. 
O.tttttt&OO IN. 

0*790OOOE«6O IN. 
0.7900001*00 IN. 

0.791A67E*0d IN. 
0.791AA7E*0O IN. 

0.S33334E4OD IN. 

0.6fl33#*00 IN. 

O.675O0OE«OO IN. 
0.679000E*00 IN. 

0.91A6A7E400 IN. 
0.9iA667B*00 IN. 

O.9S6334E+0O IN. 
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m X20™ . 2L 6 if** £ f*" «*« * O.W3«*M IN. 

CONDUCTOR NUhBSS # 34 

structure type • 7 ablator bubliher 

MATERIAL 1 • t-M.m 

m tom - 35 distance m surface * o.ioooo&oi in. 


ORIGINAL PAGE 1 j9 

OF POOR QUAUTY 


NODE NtfttER - 28 DISTANCE FROM SURFACE 

CONDUCTOR NUMBER * 28 

STRUCTURE TYPE * 2 RADIATION OAF 

MATERIAL 1 - CTO, COLONS 
MATERIAL 2 - AL.7078-T6 
NODE NUMBER • 26 DISTANCE FROM SURFACE 


0.1M00OE41 IN. 


O.25OO00E4)1 IN. 


*■* Si *- «* swf*e • o.wiommi n. 

CONDUCTOR NUMBER ■ 36 

STRUCTURE TYPE ■ 6 THIN SHIN 

MATERIAL l * AL.707H6 

WDENW18ER- 27 DISTANCE FROM SURFACE - 0.2BOOOOE«Oi IN. 

^SBiJSL DISTANCE FROM SURFACE • O.RBOOOdE^Oi IN. 

CONDUCTOR MJKBER • 27 

STRUCTURE TYPE * $ Z STANDOFF 

MATERIAL I > 1NCONL 617 

MATERIAL 2 » CTD.COLUHfi 
MATERIAL 3 » AL.707S-T6 

NODE TIMBER » 26 DISTANCE FROM SURFACE * 0.46000QE+01 IN. 


1 


. j 

, I 

j ' 

! 

; i 
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iTHIB IB THE CONFIGURATION FOR BODY PT. 3 


■» 1 . 


2,0 

3.0 

4.0 

9.0 

4.0 
7 . 0 
0.0 

4.0 

10.0 


11.0 
12 . 0 

13 , 0 B-BTB.CORA ABLATOR SUBLIKR 

14.0 

IS. 0 

14.0 

17.0 
10 , 0 
10. 0 

20.0 
21 . 0 
22.0 



RADIATION 0 AP 


0.100000 IN. AL. 7079 -T 4 


™“« 0 , 

■s> 27 . Qmmmm 

AL. 7079 -T 4 
0.140000 IN. INC 0 NL 417 

THIN SUN 

2 Z 2 ZZ 2 

z 

t 

t 

turn 

222222 

Z 

Z 4 . 7070*74 
Z 

tltttl 

z Standoff 


0.100000 IK, CtO.COUUHB 


1 


1.000000 IN. 


1.900000 IN. 


0.300000 IN. 

I 

1 

I 

I 

2.000000 IN. 
I 
1 
I 

t 


ORIGINAL PWSS 

OF POOR QUALITY. 


<D 
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HEAT RATES 
BTW80.FT-8EC 


CONNECTED 
RADIATED 
NET LOAD 
STORED 
SUBLIMED 

mm 

mm 

SURFACE RECESSION 
DISTANCE 0.00000 
fEWERATURE DEB F 
tl 1)» 100.000 
t( 6)- 100.000 
ti in- 100.000 
f< 16)« 100.000 
Ti 21)- 100.000 
Ti 26)- 100.000 
NODE POSITION INCHES 
DU life 0.000 

XXi 61= 0.808 

XXi ill* 0.417 

DU 16)- 0.689 

DU 81)- 0.833 

DU 86)- 8.900 


0.0 


CflNVECTED 

0.0 


0.0 


RADIATED 

0.0 


0.0 

0.0 

ICT LOAD 
STORED 

0.0 

0.0 

0.0 


SUBLIMED 

0.0 


0.0 

0.0 

ADVECTED 
TW NET 

0.0 

0.0 


T< 8)- 100.000 
t( 7)« 100.000 
Ti 18)- 100.000 
T( 17)- 100.000 
Ti 23)- 100.000 
Ti 87)- 100.000 

XXi 2)- 0.042 
XXi 7)« 0.290 
XXi 18)- 0.438 
XXi 17)- 0.667 
XXi 82)- O.S79 
XXi 87)- 2.600 


RECESSION RATE 0.00000 IN/SEC 


Ti 3)» 100.000 
T( 8)- 100.000 
T( 13)- 100.000 
ti 16)- 100.000 
Ti 83)- 100.000 
T( 28)- 100.000 

XX( 3)- 0.083 
XXi 8)- 0.242 
XXi 13)- 0.900 
XXi 16)- 0.708 
XXi 13)- 0.417 
XXi 28)- 4.800 


Ti 4)- 100.000 
Ti 4)- 100.000 
ti 14)- 100.000 
Ti 19)» 100.000 
Ti 24)» 100.000 


XXi 4)* 
XXi 9)» 
XXi 14)* 
XXi 19)- 
XXt 24)- 


ti 9)- 100.000 
Ti 10)- 100.000 
Ti 19)- 100.000 
Ti 20)* 100.000 
Ti 89)- 100.000 


XX( 9)- 0.167 
XXi 10)- 0.379 
XXi 19)- 0.983 
XXi 80)- 0.748 
XXi 89)- 1.000 


TINE • 100.00000 TINE STEF 

INTEGRATED HEAT 
ITU/SO.FT 

CONNECTED 19.1 

RADIATED 3.8 

m LOAD 11,3 

STORED 11.3 

SUBLIMED 0.0 

AOMECTED 0.0 

TPS ICt 11.3 


SURFACE RECESSION 
DISTANCE 0.00000 IN. 
TEMPERATURE BED F 
ti It- 886.226 t( 

T( 6)- 106.400 T( 

T( ill- 100.096 T( 

t( 16)- 100.000 T( 

Ti 2D- 100.000 Ti 

Ti 26)- 100.000 Ti 


2)- 174.707 
7)- 103.114 
12)- 100.034 
171- 100.000 
22 )- 100.000 
27)- 100.000 


2.84209 NO. OF 8tEP8 ■ 

HEAT RATES 
BTU/8Q.FT-SEC 

COUNTED 0.: 

RADIATED 0. 

NET UM) 

STORED 0.1 

MLtm O.l 

AOVECTED 0.1 

ifs ict 


RECESSION RATE 0.00000 IN/SEC 


t( 3)- 142.714 
ti Si- 101.439 
Tl 13)- 100.011 
t< 18)- 100.000 
tl 23)- 100.600 
T( 26)- 


ti 4)- 123.983 
ti 9)- 100.623 
ti 14)- 100.003 
Ti 19)- 100.000 
Ti 84)- 100.000 


Ti 9)- 112.944 
Ti 10)- 100.893 
ti 19)* 100.001 
ti 20)- 100.000 
Ti 29)- 100.000 


Table 8.1 (Continued) 


node position inches 
hi n* 0.006 

Hi 6)« 0.306 
HI 111* 0.41? 
tii 101* 0.689 
HI Ml* 0.088 
HI Ml- 3.900 


TIME ■ 300.00000 


HI 

2)* 

0.042 

HI 

3). 

0.063 

HI 

4). 

0.125 

HI 

7). 

0.290 

HI 

6)* 

0.242 

HI 

41* 

0.333 

HI 

12). 

0.456 

HI 

13)- 

0.500 

HI 

14)- 

0.542 

HI 

171* 

0.667 

HI 

18). 

0.706 

HI 

141* 

6.790 

HI 

221* 

0.675 

HI 

23). 

0.4)7 

HI 

241* 

0.996 

HI 

27)* 

2.600 

HI 

26). 

4.800 


T1HC STEP 

0 

0.47646 

NO. 

OF STEW ■ 


96 



INTEGRATED HEAT 
ITW86.FT 



CONVICTED 

60.2 


Radiated 

24.0 


NET UM) 
STONES 

96.2 

56.2 

0UBUHED 

0.0 


AOVECTED 
TPS NET 

0.0 

56.2 


*AT RATES 
BTO/M.ft-Stt 


CONNECTED 

1.3 


RADIATED 

0.6 


NET LOAD 
STORED 

0.7 

0.7 

SUBLIMED 

0.0 


ADVECTED 
TPS NET 

0.0 

0.7 


SURFACE RECESSION 
DISTANCE 0.00000 IN. 


TEMPERATURE DEB F 
T( 11* 655,463 
tl 61- 147.977 
tl lit* 103.496 
t< 161- 100.102 
tl Ml* 100.008 
Tl Ml* 100.000 
NODE POSITION INCHES 
HI II* 0.000 
HI 61- 0.208 
Ullll* 0.417 
HI 161* 0.625 
Hlllt- 0.633 
HIM)- 2.500 


Tl 2)* 428.034 
Tl 7)- 136.366 
tl 12)« 101.943 
Tl 171- 100.0(6 
tl 22). 100.001 
tl 271- 100.000 

HI 21* 0.042 
HI 71- 0.290 
hi 121* 0.498 
H< 17). 0.667 
HI 221* 0.679 
HI 371* 2.600 


RECESSION RATE 

Tl 31* 307.611 
Tl 61*116.533 
Tl 131* 100.637 
Tl 16)* 100.022 
Tl 23)* 100.000 
Tl 26). 100.000 

HI 3)> 0.063 
XXI 6)* 0.242 
HI 131- 0.500 
HI 16). 0.706 
HI 23). 0.417 
XXI 28)* 4.600 


0.00000 IN/SEC 

Tl 4)* 224.010 
Tl 4)* 104.504 
Tl 14)* 100.426 
Tl 14)* 100.004 
Tl 24)* 100.000 


HI 4)* 0.125 
HI 4)* 0.333 
HI 14)* 0.542 
XXI 14)* 0.750 
XXI 24)* 0.456 


tINE * 300.00000 TINE STEP * 

INTEGRATED HEAT 
BfU/SO.FT 


CON&CTED 

310.4 


RADIATED 

104.4 


NET UM) 
STONED 

103.6 

206.0 

SUBLIMED 

101.3 


ADttCTED 
TPS lit 

0.4 

206.0 


1.47416 NO. OF STEPS * 85 


*AT RATES 
BTU/SS.Ft-SEC 

CONVENED 

3.2 


RADIATED 

0.1 


NET LOAD 


2.4 

STORED 

0.4 

SUBLIMED 

2.0 


ADVECTED 

0.0 


TPS NET 


2.4 


Table 6.1 (Continued) 


HI 5). 0.167 
HI 10). 0.379 
HI 15). 0.563 
XXI 20). 0.742 
HI 25)* 1.000 


ORIGINAL PAGE US 
OF POOR QUALITY 


Tl 51* 176.421 
Tl 101* 105.696 
Tl 19). 100.212 
Tl 201* 100.004 
Tl 251* 100.000 


HI 91* 0.167 
HI 101* 0.375 
HI 19). 0.583 
XXI 20). 0.742 
HI 25)* 1.000 


111 


SURFACE RECESSION 
DISTANCE 6.00564 IN. 
TEMPERATURE 060 P 
t( l)*76MO0 
T( 61*044.001 
Tl 111* 117.454 
Tl 161* 101.054 
f( 01)* 100.099 


Tl 26)* 100.000 
NODE POSITION INCHES 
III D* 0.006 


XXI 6)* 
XXI ID* 
XXI 16)* 
XXI 21 )• 
XX( 26)* 


0.208 

0.417 

0.605 

0.633 

2.900 


RECESSION RATE 0.00006 XH/SEC 


ORIGINAL RAGE 
OP POOR QUALITY 


Tl )* 567.613 
Tl 7)* 200.789 
Tl 12)* 110.662 
Tl 17)* 100.705 
T( 22)* 100.030 

Tl 31* 468.664 
Tl 8)* 167.511 
Tl 13)* 106.399 
Tl 18)* 100.390 
Tl 23)> 100.019 

Tl 4)* 378.480 
T( 9)* 144.029 
Tl 14>* 103,777 
Tl 19)* 100,212 
tl 24)* 100,006 

Tl 51* 305.101 
Tl 10)* 128.021 
T< 15)* 102.194 
Tl 20)* 100.113 
Tl 29)- 100.001 

Tl 27)* 100.000 

Tl 28)* 100.000 



XXI 2)* 0.044 
XXI 7)* 0.250 
XXI 12)- 0.456 
XXI 17)- 0.667 
XXI 22)* 0.875 
XXI 27)* 2.800 

XXI 3)* 0.083 
XXI 6)- 0.292 
XXI 13)* 0.500 
XXI 18)- 0.708 
XXI 23)* 0.917 
XXI 28)* 4.800 

XXI 41* 0.125 
XXI 9)* 0.333 
XXI 14)* 0.942 
XXI 19J* 0.790 
XXI 24)* 0.958 

XXI 51* 0.167 
XXI 10)* 0.375 
XXI 15)* 0.983 
XXI 20)* 0.792 
IXI 25)- 1.000 


TINE * 400,00000 TINE STEP • 

INTEGRATED t€AT 
BTU/SG.PT 


1.03531 NO. OP STEPS * 120 

NEAT RATES 
8TU/S8.PT-SEC 


CONNECTED 

690.2 

RADIATED 

187.1 

ItT LOAD 

503.1 

STORED 

139.7 

SUBLINED 

364.8 

ADVECTED 

2.6 

TPS NET 

909.1 

SURFACE RECESSION 

DISTANCE 0.02025 IN. 
TEMPERATURE DEG f 

Tl 1)» 760.400 

Tl 2)* 642.650 

Tl 6)* 318.522 

Tl 7)* 268.019 

Tl ID* 147.345 

Tl 12)* 132.713 

Tl 16)* 106.122 

tl 17)* 103.847 

Tl 21)* 100.508 

Tl 22)* 100.291 

Tl 26)* 160.000 

Tl 2?)* 100.000 

NODE POSITION tNO€S 

XXI 1)« 0.020 

XXI 2)* 0.048 

XXI 6)* 0.208 

XXI 7)* 0.250 

XXI ID* 0.417 

XXI 11). 0.458 

XXI 161* 0.625 

XXI 17)* 0.667 

XXI 2D* 0.833 

XXI 22)- 0.675 

XXI 26)* 2.500 

XXI 27)* 2.800 


CONNECTED 4.1 
RADIATED 0.0 
NET LOAD 

STORED 0.3 
SUBLIMED 2.0 
AWECTED 0.0 
TPS NET 


RECESSION RATE 

Tl 3)« 539.204 
T( S)* 226.433 
T( 13)* 122.146 
Tl 18)* 102.377 
Tl 23)* 100.160 
T( 28)* 100.000 

XX( 3)» 0.083 
XX( 6)* 0.292 
XXI 13)* 0.500 
XX( 16)* 0.708 
XX( 23)* 0.917 
IX( 28)* 4.600 


3.3 


3.3 


0.00015 1N/8EC 

Tl 4)* 448.191 
Tl 9)* 193.107 
T( 14)* 114.700 
Tl 19)* 101.445 
Tl 24)* 100.078 


XXI 4)* 0.129 
XXI 91* 0.333 
XXI 14)* 0.542 
XXI 19)* 0.750 
XXI 24)* 0.958 


T( 5)* 370.192 
T, 10>* 167.106 
T< 15)* 109.573 
fl 20)* 100.864 
Tl 25)* 100.020 


XXI 5)* 0.167 
XXI 10)* 0.379 
XXI 1$)* 0.583 
XXI 20)* 0.792 
XXI 25)* 1.000 
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TIC • 900,00000 tlC STEP * 

0.73996 NO. OF STEPS * 161 

£P5fWt PAGE fg 





0F POOR QUALITY 

INtEORAfED NEAT 


CAT RATES 



im.pr 


6TU/89.FT-6EC 



CWVKTED 

1100.6 

CDNVEC1ED 

4.1 


radiated 

169.6 

RADIATED 

0.8 


NET LOAD 

630.6 

NET LOAD 

3.3 


STORED 

163.9 

STORED 

0.3 


SUBLINED 

663.1 

SUBLIMED 

3.0 


ADVECTES 

3.8 

ADVECTED 

0.0 


TP8 NET 

630.6 

TPS NET 

3.3 


SURFACE RECESSION 





DISTANCE 0.03672 IN. 

RECESSION RATE 

0.00016 1N/6IC 


TEMPERATURE DE8 f 





Tt 1)» 740,400 

ft 2)* 669.640 

Tt 3)* 998.040 

Tt 41* 902.372 

T( 9)* 429.213 

ft 61* 370.571 

ft 7)* 319.121 

Tt 61* 274.774 

T( 9)* 237.242 

T< 10)* 206.067 

T( ID* 100.063 

T( 12)* 160.393 

f( 13)* 144.426 

TI 14)* 132,173 

tt 191- 122.924 

T( 16)* 116.072 

T( 17)* 111.069 

fl 18)* 107.930 

ft 19)* 109.032 

T( 20)* 103.307 

t( Oil* 102.131 

T( 22)* 101.336 

t( 23)* 100.800 

tt 24)* 100.426 

T( 29)* 100.144 

T( 26)* 100.006 

ft 2?)* 100.000 

Tt 28)* 10D.OOO 



NODE POSITION INCCS 




XXt D* 0.037 

XX( 2)* 0.094 

XX( 3)* 0.063 

XXt 4)* 0.129 

XXt 9)* 0.167 

XXt 6)* 0.206 

XXt 7)* 0.290 

XX< 8)* 0.292 

XXt 9)* 0.333 

XXt 10)* 0.379 

XXt ID* 0.417 

XXt 12)* 0.498 

XX< 13)* 0.900 

!X( 14)* 0.942 

XXt IS)* 0.983 

XXt 16)* 0.629 

XX( 17)* 0.66(7 

XXI 18)* 0.706 

XXt 19)* 0.790 

XXt 20)* 0.792 

XXt 2D* 0.633 

XX< 22)* 0.679 

XX(23)« 0.917 

XXt 24)* 0.996 

XXt 29)* 1.000 

XXI 26)* 2.900 

XXI 27)* 2.600 

XX( 26)* 4.600 




TIC • 600.00000 TIC 81EP • 

0.14777 NO. OF STEPS * 421 


1ME0RA1ED MEAT 
BTU/SO.FT 

CONVECTED 

1909.3 

CAT RATES 
8TU/86.FT-SEC 

CONVECTED 

4.1 


RADIATED 

392.4 

RADIATED 

0.8 


NET LOAD 

1196.9 

NET LOAD 

3.2 


STORED 

190.2 

STORED 

0.3 


SUBLIMED 

962.3 

SUBLIMED 

3.0 


ADCCTED 

4.4 

ADVECTED 

0.0 


TPS NTT 

1196,9 

TPS NET 

3.2 


SURFACE RECESSION 

DISTANCE 0.0S322 IN. 

RECESSION RATE 

0.00017 IN/SEC 


TEMPERATURE DEG f 
Tt D* 760.400 

Tt 2)* 734.636 

Tt 3)* 692.931 

Tt 4)* 990.040 

Tt 9)* 473.121 

ft 6)* 411.893 

Tt 7)* 360.979 

Tt 11*319.170 

Tt 9)* 279.944 

ft 101* 241.499 

Tt ID* 212.966 

Tt 12)* 166.436 

Tt 13)* 166.990 

Tt 14)* 192.967 

Tt 19)* 139.670 

Tt 16)* 129.977 

Tt 17)* 121.796 

Tt 181* 119.766 

Tt 19)* 111.293 

Tt 201* 107.991 

tt 2D* 109.492 

Tt 22>» 103.691 

Tt 23)» 102.366 

Tt 24)- 101.3&8 

Tt 29)- 100.979 

Tt 26)* 100.000 

ft 271* 100.006 

ft 26)* 100.000 


Table 6.1 (Continued) 


NODE POSITION INBC6 






IK 1)' 

0.099 

XK 

a)* 

0.099 

XK 

9)i 

IK 4)« 

0.206 

XK 

7)* 

0.890 

XK 

8)* 

IK III* 

0.417 

XK 

19)* 

0.496 

XK 

19)* 

XK 14)* 

0.499 

XK 

171* 

0.467 

XX( 

18)* 

xk an* 

0.699 

XXI 

221* 

0.679 

XK 

23)- 

XK 24)* 

8,900 

XXI 

27)* 

2,600 

XK 

26)- 


0,063 

XK 41* 

0.129 

XXI 9)> 

0.167 

0,292 

XXI 9)* 

0.933 

XXI 10)* 

0.979 

0,900 

XK 14)* 

0.942 

XK 19)* 

0.969 

0,706 

XXI 19)> 

0.790 

XX( 20)* 

0.792 

0.917 

4,600 

XX( 24)- 

0.996 

XXI 29)- 

1.000 


HOISC MOPPED PROM fiUfiUHER-AfiLATOR NODCL 


11H1B 16 TIC CONF10URATION FOR BODY PT. 


original m* i, 

OP POOR QUALITY 


* 1 . 0 =* 

a. o 

9.0 

4.0 
9. 0 

4.0 

7.0 

0 . 0 

9.0 

10.0 
11.0 
IS. 0 

19.0 
14. 0 
19. 0 
14. 0 
17. 0 

16.0 

19.0 
90. 0 

at. 0 
28. 0 

29.0 
*24. 


4 JTO.CORK ABLATOR SUBLIKft 0.945294 IN. 


0.125000 IN. CTO.COLUHB 



RADIATION 0 tt 


1.900000 IN. 


—29. 

—24. 


0.100000 IN, AL.7075-T 6 

AL.707M4 TN1N8MN 
0.140000 IN. INCONL 417 


zzzzzz 

zzzzzz 

2 

z 

i 

Z AL7079-T6 Z 8TAND0PF 

z 

Z 

zzzzzz 

zzzzzz 


. 0 *« 


0.160000 IN. CtD.COlUHB 


0.900000 IN. 


2.000000 IN. 
I 
1 
1 
1 


table 6.1 (Continued) 
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4) iW4.{fef3syi44| r..=y|i^i. 


ORIGINAL PAC3E m 
OF POOR QUALITY 


TIME i 700,00000 TIME STEP - 

0.46820 HO. OF STEPS - 

043 

INTEGRATED HEAT 

HEAT RATES 


etmn 

8M.FT-tte 



CONNECTED 

197B.8 

CONVENED 

0,6 


RADIATED 

430.1 

RADIATED 

0.8 


MET LOAD 

1043.7 

1ST LOAD 

0.0 


STORED 

214.S 

STORED 

0.2 


8UBLUCD 

1323.4 

SUBLIMED 

4.7 


ADVECTED 

0.8 

ADVECTED 

0.0 


TPS MET 

1043.7 

TPS NET 

0.0 


SURFACE RECESSION 

DISTANCE 0.07319 IN. 
TEffERATURE DEO F 

RECESSION RATE 

0.00020 IN/SEC 


Tt 11*760.400 

T( 2)- 698.392 

tt 3)- 098.011 

Tt 4)- 014.310 

Tt 0)- 449.099 

T( 61* 396.113 

tt 71- 330.169 

Tt 8)- 309.324 

Tt 9)- 273.413 

Tt 10)- 242.206 

T( 11)- 210.410 

T( 12)- 192.687 

Tt 13)- 73.642 

Tt 14)- 107.877 

Tt 10)- 144.984 

t< 16)- 134.067 

Tt 17)- 126.247 

Tt IS)* U9.674 

Tt 19)- 114.032 

Tt 20)* 110.037 

T( 211* 107.441 T< 221* 109.029 
T( 26)- 100.000 Tt 27)- 100.000 
NODE POSITION INCHES 

Tt 23)- 103.116 

Tt 24)* 101.047 

Tt 23)- 100.000 

XXt U- 0.073 

XXI 2)- 0.089 

XXt 3)- 0.120 

XXt 4)* 0.167 

XXt 0)* 0.208 

XXt 6)* 0.200 

XXt 7)- 0.292 

XXt 8)- 0.333 

XXt 9)* 0.375 

XXt 10)- 0.4IT 

XXt 111- 0.4SS 

XX( 12)« 0.000 

XXt 13)- 0.042 

XXt 14)- 0.083 

XXt 10)- 0.620 

XXI 16)- 0.667 

XXI 17)- 0.708 

XXt 16)- 0.700 

XXt 19)- 0.792 

XXt 20)* 0.833 

XXt 2D- 0.679 
XXI 26)* 2.000 

XXI 22)- 0.917 

XXI 27)- 4.800 

XXt 23)- 0.908 

XXt 24)- 1.000 

XXt 20)- 2.900 


MODE DROPPED PROM 8U8UHER-ABLAT0R MODEL 


table 6.1 (Continued) 


IMS 18 THE CONFIGURATION FOR fifty PT. 3 



4.0 
9 . 0 
A. 0 

7.0 
6 . 0 

4.0 

10.0 
11.0 

; B-8TB.C0RK ABLATOR SUBLINER 

13. 0 

14.0 

19.0 

14. 0 

17. 0 

18. 0 

19. 0 

20 . 0 
21 . 0 

22.0 


0 . 


10197 IN. 


ORIGINAL PAC.U f!.« 

Of POOR QUALITY 


0.129000 IN. CT0.C0LUMB 


“*24. 
*“ 29 . 0 »« 


222221 

2 

l 

2 

222222 


““ 26 , 0 *»» 


0.100000 IN. AL707MA 

AL.7075-T 6 THIN SKIN 
0.140000 IN. 1NC0NL 417 


RADIATION OAR 1.500000 IN. 

1 

I 

I 


222222 

2 

2 AL.7079-T4 2 STANDOFF 

222222 


0.180000 IN. CTD.COlUHS 


0.300000 IN. 

7 

I 

1 

I 

2.000000 IN. 
1 
1 
1 
1 


Table 6,1 (Continued) 


Tils * 800.00000 TI* STEP • 0,07308 HO. OF STS»fl - 


711 


integrated hat 

Bni/Bo.rr 

tmm 

RADlAtE) 

NET LOAD 

STORES 

6UBLUCD 

»*" . ) 

hti HT 


3780.9 

817.8 

240.8 

mA 

8,7 


3873.1 


3873.1 


HAT RATES 
ITV/B8.FT-8EG 

cmm 

RADIATED 
lit LOAD 
STORED 
SUBLIMED 

mm 

TPS NET 


19.0 

0.8 

0.3 

10.9 

0.0 


11.2 


11.2 


ORIGINAL, 1-Viv.u M 

OF POOR QUALITY 


SURFACE RICEwIQN 
DISTANCE 0.11191 IN, 

RECESSION RATE 

0.00039 IN/6EC 

tt 8)* 432.302 
tt 101* 241.048 
tt iSl* 148.869 
tt 201* 112.442 
tt 281* 180.902 

TEMPERATURE DEO F 
T( 11* 740.400 
T( A)* 363.488 
Tt 111* 21A.07A 
T( 1AI* 138.098 
T( 111* 100.777 

T( 21* A73.708 
tt 71* 340.771 
Tt 121* 194.683 
T( 171* 129.832 
Tt 221* 108.772 

Tt 31* 874.788 
T( 81*303.081 
T( 131* 176.528 
tt 181* 122.881 
tt 231* 103.249 

tt 41* 493.339 
tt 91* 269.936 
t( 141* 161.269 
tt 191* 116.968 
tt 241* 100.002 

tt 261* 100.000 
NODE POSITION INCHES 
8*1 11* {‘111 

XXt 61* 0.292 

XXt 111* 0.800 

XXi 1A)* 0.708 

XXt2ll* 0.917 

XX4 21* O.ifc 
XXt 71* 0.333 
XX( 121* 0.842 
XXt 171* 0.750 
XXt 221* 0.988 

XXt 31* 0.1A7 
XXt 81* 0.378 
XXt 131* 0.883 
XXt 181* 0.792 
XXt 231* 1.000 

XXt 41* 0.208 
XXt 91* 0.417 
XXt 141* 0.628 
XXt 191* 0.833 
XXt 241* 2.800 

XXt 81* 0.280 
XXt 101* 0.488 
XXt 181* 0.667 
XXt 201* 0.878 
XXt 281* 2.800 

XXt 261* 4.800 






Table 6.1 (Continued) 
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NODE DROPPED FROM SOBUlfR -ABLATOR KM 


( MklLPtat *i . L t . ; 

OF POOR QlJ/tf 


Iffllfi to THE CaFlftMlON FOR MOV PT. 3 


3.0 
9 , 0 
4. 0 

9, 0 
6. 0 
7. 0 
0,0 

9.0 

10. 0 

11.0 

12. 0 8-STO.COAK ABLATOR fiUBLtHER 

13. 0 

14.0 
19. 0 
1A, 0 
17. 0 
10. 0 

19. 0 

20 . 0 

21.0 



0.129000 IN. CTD.COLUNB 


RADIATION GAP 

—23. 0— ■ 
—24. 0— 

0.100000 IN. AL.7075-TA 

THIN SKIN " 

AL.7079-T6 

0.140000 IN. INCONL 617 


turn 

turn 


t 

z 


t 

2 AL.7679-T6 

2 STANDOFF 

i 

2 


mm 

mm 



—29. 


6.180000 IN. CTO, CHIMB 


NODE HOPPED FttOH OUSLMEft-AfilATH MODEL 


0.669146 IN. 


1.900000 IN, 


0.300000 IN. 


2.000000 IN. 


Table 6.1 (Continued) 
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miifi le t* conmidN for troy pt, 3 


а, 

3» 

4. 

9. 

б. 

It 

6. 

4 . 

10. 

11. 

12. 

13. 

14. 
19. 
16. 
17. 
16 . 

19. 

20 . 


1. 

" 6 
0 
0 
6 
0 
6 
0 
0 
0 
0 
6 


WTO. CORK AfiLATOA fiUBUtiR 0. 


— Ml* IP 1 ****® 

0.129000 IN. CTD.CdLUHB 



RADIATION OAR 

—22. 

0.100000 tN. AL.7C7M6 


—23. 6*—— 

AL.7079-T6 

THIN SKIN 


0.140000 lN.lNWNuir 


turn 

2 

2 

2 

222222 

222222 ~ 
2 

2 AL.7079-T6 

2 

222222 

2 STANDOFF 


639169 IN. 


—24. 


0.160000 IN. CfD.COUM 


0.300000 IN. 

1 

1 

I 

! 

2.000000 IN. 
1 
I 
1 
I 


ORIGiMAf, iw-::’ $ 

OF POOR QUAMTY 


T6bto 6.1 (Continued) 



TIIC * 900.00000 Til* STEP * 

INTBRATID ICAT 

fim/w.pr 


0.00113 HO. OF.. BTEPB • 077 

HEAT RATES 
BtU/BO.rt-SEC 


CflNVOT 

radiated 

CUOAO 

STORED 
SUBLIMED 
ADVtCTU) 
TPfl NET 


4369.1 


CONVECTED 

17.3 

600.9 

3768,6 

RADIATED 

0.8 


NET LOAD 

279.7 


STORED 

0.4 

3476.9 


BUDltKO 

16.0 

19.9 

3768,6 

ADDICTED 

0.1 


TPS 10 


SURFACE RECESSION 
DISTANCE 0,19238 IN. 
TBFERATURE DEO F 
T( II* 760.400 
T( A)* 337.984 
T( 111- 199.419 
Tl 16)* 131.673 
Tl 21)* 109.7B0 
NODE POSITION INCHES 
XXI D* 0.192 


T( 21* 639.981 
Tl 7)* 299.B71 
t( 12)« 177.999 
tl 17)* 124.461 
T( 22)» 100.007 


XXI 2)* 0.214 


XX( 6)* 0.379 
XX( ID* 0.983 
«< 16)* 0.792 
XXI 20- 1.000 


XXt 7)- 0.417 
XXI 12)> 0.629 
XXI 17)* 0.633 
XX(22)° 2.900 


RECESSION RATE 

Tl 3)* 922.306 
Tl 61* 267.493 
T( 131- 163.230 
T( 18)- 116.479 
T( 23)* 100,007 

XX( 3)* 0.290 
XX( 6)* 0.498 
XX( 13)- 0.667 
XXI 181* 0.879 
XX(23)« 2.800 


0.00080 1N/8EC 

f< 4)- 440.134 
tl 9)* 239.678 
T( 14)* 190.784 
Tl 19)- 113.904 
Tl 24)- 100.000 

XXI 4)* 0.292 
XXI 9)* 0.900 
XXI 14)- 0.708 
XX< 191- 0.917 
XXI 24)- 4.800 


NODE DROPPED PRIM 6UBL1HER-ABLATDR MODEL 


ORIGINAL K'V:.4- i,;.i 

OF POOR QUALITY 


Tl 91- 383.468 
Tl 10)> 219.837 
Tl 191- 140.399 
Tl 201- 109.332 


XXI 91* 0.333 
XXI 101- 0.942 
XXI 191- 0.790 
XXI 201- 0.998 


Table 6.1 (Continued) 



ithib iB t* totimmm mm pi. % 


i; 

k 


a. o 

a. o 

4.0 

9.0 

b. 0 

7.0 

6.0 

9 . 0 

10 . 0 
11.0 

15. 0 
19. 0 

14. 0 

19.0 

16. 0 

17.0 

15. 0 

19.0 

*“ 20 . 


ns 


—51. 

—55. 


BmCttK ABLATOR MUHER 0.762696 IN. 


0.129000 IN. CtO.COLIXO 


RADIATION OAF 1. 


0.100000 IN. AL.7075-T6 


AL.707VT4 THIN SKIN 
0.140000 IN. INOONL 617 


—23. 


0.160000 IN. CtO.COLUNB 


ORIGINAL P/V'/. 1 f»y 

Of POOR Quality 


900000 tN. 


0.300000 IN. 
1 




— 1 

mm 

mm 

I 

i 

t 

I 

t 

t AL.707M6 2 STANDOFF 

2.000000 IN. 

t 

l 

t 

mm 

unit 

1 


node mm m bubuhes-ablator hokl 


Table 6 k l (Continued) 



1THI8 18 TIC Mf MURATION FOR SOOT Ft. 0 


ORIGINAL PA<?E 13 

OF POOR QUALITY 


■ I. 

8.0 

3.0 

4. 0 

5.0 
4 . 0 
7. 0 
0 . 0 

9. 0 

10. 0 
11. 0 
12. 0 

13.0 
14< 0 
19. 0 

16.0 
17. 0 
18.0 
»14. 


** 20 . 

— 21 . 


B-STQ.C0RK ABLATOR 9UBLIHER 0. 


0.139000 IN. CTD.COLUMB 


RADIATION OAF 


0.100000 IN. AL.707M6 

AL.707M6 THIN SKIN 
0.140000 IN. 1NCONL 617 


tittn mm 

Z ! 

1 2 AL.707H6 2 STANDOFF 

222222 222222 


— 22 . 


0.100000 IN. CTD.CO.UH2 


41394 IN. 


1.900000 IN. 


0.300000 IN. 

I 

1 

I 

I 

2.000000 IN. 
I 
I 
I 
1 


TINE • 1000.00000 TINE STEP • 0.06152 NO. OF STEPS 


1043 


INTEORATED HEAT 
BTV/8B.FT 

CONVICTED 

RADIATES 

NET LOAD 

STORES 

8U8UNE0 

AWECTED 

TP8 NET 


MEAT RATES 
BTU/SO.FT-SEC 


6119.4 


CtMCCtES 

17.6 


689.2 

9432.2 

RADIATES 

0.6 


314.2 

NET LOAD 

16.7 


STORED 

0.9 


9007.9 


SUBLI«D 

16.2 


2S.4 


advected 

0.1 



9432.1 

TPS NET 

16.7 


Table 6.1 (Continued) 



% 


# 


SURFACE RECESSION 



DISTANCE 

0.28137 

IN. 


TEMPERATURE deb f 



t< 1). 760.400 

T( 2)* 644 

1.619 

t( 6). 310.831 

t< 71. 273.099 

T( 11). 179.223 

T( 12). 164.911 

t< 16). 129.406 

TI 17). 119.116 

T( 21). 100.016 

T< 22i* 100.000 

NODE POSITION INCHES 



XXI 1). 

0.281 

IXt 2). 

0.299 

XX( 6). 

0.498 

XX( 7). 

0.900 

XX( ID* 

0.667 

XXI 12). 

0.708 

XX( 16). 

0.879 

IXt 17). 

0.917 

XX( 21). 

2.800 

XX( 22). 

4.800 


recession rate 0.00009 in/sec 


ORIGINAL P/V2R B.< 
Of- POOR QUALITY 


T( 3). 513.328 
T< 6). 242.609 
T( ia). 188.110 
T( 10)- 113.769 


t( 4)« 420.001 
U 9)« 217.990 
f( 14)* 141.699 
Ti 19). 109.169 


f( 9)* 398.631 
f( 10)« 196.701 
T( 19). 132.843 
TI 20). 100.016 


XXI 3). 0.333 
Xtt 8). 0.943 
XX ( 13). 0.790 
XX( 18). 0.998 


XXI 4)* 0.379 
XX( 9)> 0.983 
XXI 14). 0.792 
XXI 19). 1.000 


XX< 9). 0.417 
IXt 10). 0.629 
XX( 19). 0.833 
IXI20). 2.900 


NODE DROPPED FWH MIDO-ABLATOR DODO. 


4 


Table 6.1 (Continued) 
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ItHIfl 18 THE ONTIflUMTUM FOR. BODY f»T. a 


ORIGINAL PAQK 
Of POOR QUALITY 


« i. 
1,0 
3, 0 

4.0 

9.0 

4.0 

7.0 

8.0 

9.0 

10 . 0 

11.0 
12. 0 

13.0 

14.0 

19.0 
16. 0 
17. 0 
*16. 


8-Sfd.CORR ABLATOR SUBLINER 


0.129000 IN. CTD.COUW. 


radiation m 


—19. 

— 20 . 


0.100000 IN. AL.707M6 

AL.7079-t 6 THIN SKIN 
0.140000 IN. IMCQNL 617* 


taattfrag 


ttutt 222222 

i i 

j 2 AL.7079-TA 2 STANDOFF 

tmn 222222 


— 21 . 0 ** 


0.180000 IN. CTD.COLUNB 


I 

1 

1 

I 

1 

1 

1 

1 

0.699940 IN. 

1 

I 

1 

I 

1 

1 

I 

1 

1 

1 

1.900000 IN. 
1 
1 
1 

0.300000 IN. 

1 

I 

1 

1 

2.000000 IN. 
1 
1 
1 
I 


HOfc IIIRWQ) FROM StfiUHER-ABLATOR HUOEL 


Table 6.1 (Continued) 
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ItHlfi 18 TIE CONFIGURATION rt)R BODY PT. 3 


3.0 

9.0 

4.0 

8.0 

4.0 

7.0 
0.0 
0.0 

10.0 
11.0 

13.0 

19.0 

14.0 

19.0 

14.0 
*■■17. 


B-8TG.C0RK ABLATOR SUBLINER 


0.189000 IN. CTD.COLUHB 


1 

I 

0.490099 IN. 
I 
I 
1 
I 
1 
I 
I 

1 


S?2 !F AL page R? 

0 ft poor quality 


RADIATION OAR 


0.100000 IN. AL.7079-T4 



AL.7079-T4 

ININ SUN 

«*10. Omni 

■fin niiurtni nwirfliiiiiti m m 

ukmmkam watt* * 


0,140000 IN. INC0NL 417 


min 

mm 


i 

t 


i 

t AL.707VT6 

2 8TAND0FT 

i 

1 


mm 

mm 



0.100000 IN, CfD.COLUW 


I 

I 

1.900000 IN. 
I 
1 
I 

0.900000 IN. 

I 

I 

1 

I 

3.000000 IN. 
I 
I 
1 
I 


THE* 1100.00000 TINE 818R ■ 

0.94000 NO. OR STEPS ■ 

1330 

lNTEORATED *AT 



HEAT RATES 



im/ 80 .rr 



I1U/60.FT-&C 



CONNECTED 

7701.0 


CONVICTED 

13.0 


radiated 

749.8 


RADIATED 

0.8 


NET LOAD 


4096.0 

NET LOAD 


13.0 

STORED 

969.7 


STORED 

0.4 


SUNL1HES 

4999.7 


SUBLIMED 

11.9 


AOVECta 

94.9 


ADVECTtO 

0.1 


tPS MET 


4096.0 

179 NEt 


13.0 


table 6.1 (Continued) 
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SURFACE RECESSION 
DISTANCE 0.36147 
temperature o®s p 
Ti 11- 760.400 
TI 61-344.890 
T( HI* 166.739 
t< 161- 119.137 
NODE POSITION IttttS 
XXI II- 0.361 

XXI 61- 0.943 

IXIIIJ- 0.790 
XXI 161* 0.998 



RECESSION RATE 0.00080 IN/SEC 


TI 81- 637.313 
TI 71- 396.280 
TI 181- 193.619 
TI 171- 113.489 


TI 31- 909.093 
TI 81- 836.099 
TI 131- 142.694 
TI 181- 100.032 


TI 41-410.413 
TI 41- 301.990 
TI 141- 133.916 
TI 191- 100.033 


TI 91- 344.900 
TI 101- 182.969 
TI 191- 129.790 
TI 201- 100.000 


MI 31- 0.383 
XXI 71- 0.989 
XXI 131- 0.798 
XXI 171- 1.000 


XXI 31* 0.417 
XXI 81- 0.639 
XXI 131- 0.833 
XXI 181- 3.900 


XXI 41- 0.498 
XXI 91- 0.667 
XXI 141- 0.879 
XXI 191- 3.800 


XXI 91- 0.900 
XXI Ml- 0.708 
XXI 191- 0.417 
XXI 891* 4.800 


NODE DROPPED FRON SUILlfiHtfUtW *OEL 


itwfl is the configuration for iosy pt. 


turn 

t 

i 

i 

min 


- 19 . fe- 


B-fiTG.CORK ABLATOR 8U8LINER 0. 


0.129000 IN. ctd.co.uhb 


RADIATION BAP 1.900000 IN. 


0*100000 IN. AL.7079-T6 


original pack 

of poor quality 


16264 IN. 


AL.7079-T6 THIN SKIN 


0.300000 IN. 


0.140000 IN. 1NC0NL 617 


tutu 

t 

X AL.7079-T6 2 STANDOFF 
221222 


0.180000 iN. CTD.COLUHB 


2.000000 IN. 
1 
1 
1 
1 


Table 6.1 (CofitTnued) 




oftaiNAt rw; f, 

OF POOR QUALITY 

TIME • 1900.00000 Tiff 6tEP - 0.10211 Nt), OF STEPS • 1064 


INTEGRATED (CAT 



HEAT RATES 



itu/sa.FT 



ITU/88.FT-8EC 



CONNECTED 

8741 .A 


connected 

7.6 


RADIATED 

648.9 


RADIATED 

0.8 


NET LOAD 


7893.0 

NET LOAD 

7.0 

STORED 

406.7 


STORED 

0.4 

sublimed 

7446.8 


SUBLIMED 

6.0 


ADVECTED 

99.9 


ADVECTED 

0.0 


TPS NET 


7899.0 

TPS NET 


7.0 

SURFACE RECES810N 






DISTANCE 0.41162 IN. 


RECESSKM RATE 

0.00090 TN/SEC 


TEMPERATURE DEI) F 
T( 11* 760.400 

T( 21* 660.492 

Tl 91-999.839 

Tl 4)* 492.119 

Tl 9)* 980.072 

T( 61* 329.148 

Tt 71* 277.637 

Tl 81* 241.469 

Tl 9)* 212.780 

Tl 10)- 189.906 

Tt ID* 171.952 

T( 121* 196.687 

Tl 191* 144.918 

Tl 14)* 134.493 

Tl 19)* 129.997 

Tt 16)* 118.715 
NODE POSITION IMOCS 
XXI D* 0.412 

Tl 171* 100.094 
XXI 21* 0.426 

Tl 16)* 100.054 
XXI 9)* 0.498 

Tl 19)* 100.002 
XXI 4)* 0.500 

XXI 9)* 0.942 

XXI 6)* 0.983 

XXI 71* 0.629 

XXI B)» 0.667 

XXI 9)« 0.706 

XXI 10)* 0.790 

1X1 ID* 0.792 

XXI 121* 0.639 

XXI 19)* 0.875 

XXI 14)* 0.9)7 

XXI 15)* 0.958 

XXI 16)* 1.000 

XXI 171* 2.900 

XXI 16)* 2.600 

XXI 19)* 4.600 



NODE MOPPED FROM SUBLINER-ABLATOR MODEL 


Table 6.1 (Continued) 



itHie is the cartomoN m body. ct. a 


— 1 , 

9.0 

9. 0 

4.0 
0 . 0 
6 . 0 

7.0 

8.0 
0.0 

10. 0 
11.0 

19.0 

13.0 

14.0 
— 15 . 


OKIUIIMAL Viv-X. V; 

OF POOR QUALITY, 


I 


I 


B-ST0.CCRH ABLATOR SUBLINER 0.574476 IN. 

1 
1 

r 

_ 1 

0.185000 IN. CT0.C0LUHB ~ 

— — — | 

1 


—16, 

—17. 


ftADlATION 067 1.500000 IN. 

1 

' ■ " 1 " J 

0.100000 IN. AL.7075-T6 2 

0L.7075-T6 THIN SKIN * MOOOOO IN. 


0.140000 IN. INCQNL 617 


mm 

turn 


z 

2 


2 

2 AL.7075-T6 2 STANDOFF 


2 

2 


222222 

222222 



0.180000 IN. CTD.OOLUHB 



9.000000 IN. 
1 
I 
I 
I 


THE • 1900.00000 tilt 810* ■ 0,71448 NO. 0 f STEPS « 


1985 


INtEdRATEO HEAT 
8W/S8.FT 


HEAT RATES 
8TU/88.PT-8EC 


CONVECTED 

RADIATED 

NET LOAD 

STORED 

SUBLIMED 

ADVECTEO 

tW NET 


9999.0 


CONVECTED 

4*1 


991.9 

8991.8 

RADIATED 

0.8 


440.1 

NET LOAD 


9.9 


STORED 

0.9 


7909.9 


SUBLIMED 

9.9 


41*8 

8991.7 

ADVECTED 

0.0 



TPS NET 


9.2 
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i!| -"vr 








SURFACE RECESSION 
DISTANCE 0.43748 IN. 


1WERATURE m f 
f( II* 740.400 
t( 61* 337.706 
tt til* 177.716 
tt 16)* 100.006 
NODE POSITION INCHES 
111 II* 0.437 

111 61* 0.6S5 

IK 111* 0.033 

IK 16)* 3.800 


T< 31* 633.080 
tt 71*393.314 
tt It!- 160.083 
f( 171* 100 <006 

III 31* 0.463 
IK 71* 0.667 
IK 131* 0.079 
IK 171* 3.000 


receboum bate 

f< 31* 949.331 
tl 01* 384.816 
tt 131* 147.037 
tt 10)* 100.004 


0.00036 1N/SEC 

ft 41* 487.760 
Tt 91* 333.971 
ft 141* 139.474 


ORIGINAL PAGE Cfe 
OP POOR QUALITY 


tt 91* 391.873 
Tt 101* 190.309 
tt 131* 139.697 


IK 31* 0.900 
IK 01- 0.700 
IK 131* 0.917 
IK 101* 4.000 


IK 41* 0.943 
IK 91* 0.790 
IK 141- 0.990 


IK 91* 
IK 101* 
IK 191* 


9.903 

0.793 

1.000 


TIME * 1400.00000 Tl* STEP ■ 

INTEGRATED H!Af 


BTW80.FT 


CONNECTED 

9900.4 

RADIATED 

1013.9 

NET LOAD 

0966.6 

STORED 

466.3 

SUBLIMED 

0097.9 

AWECTED 

43.4 

TPS NET 

8966.9 


NO. OF STEPS 

HEAT RATES 
STU/80.PT-SEC 

• 

1676 

CONVOKED 

1.2 


RADIATED 

0.0 

0.4 

NET UMD 


STORED 

0.2 


SUBLIMED 

0.1 


ADVECTED 

0.0 

0.4 

TPS MET 



SURFACE RECESSION 
DISTANCE 0.44963 (N. 
TEMPERATURE DEO F 
tt 11* 760.400 
tt 61* 306.034 
Tt 111* 303.613 
Tt 161* 100.131 
NOSE POSITION INCHES 
IK II- 0.446 

IK 61* 0.639 

IK 111* 0.833 

IK 161* B.900 


Tt 31* 691.068 
Tt 71* 337.964 
Tt 131* 101.933 
Tt 171* 100.131 


IK 31* 
IK 71* 
IK 131* 
IK 171* 


0.469 

0.667 

0.079 

2.000 


RECESSION RATE 0.00000 1N/8EC 


Tt 31* 996.917 
Tt 01* 396.093 
Tt 131* 163.75* 
Tt 161* 100.010 


Tt 41* 809.694 
Tt 91* 360.032 
Tt 141* 140.393 


Tt 91* 441.334 
Tt 101* 229.483 
Tt 191* 135.091 


IK 31* 0.900 
IK 01* 0.700 
IK 131* 0.917 
IK 101* 4.100 


IK 41* 0.942 
IK 91* 0.790 
IK 141* 0.990 


IK 31* 0.SP1 
IK 101* 0.791 
IK 191* 1.000 


INITIAL NASS* 30.83290 (LM/88.FT.1 



1 
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rmes 


mi COAT - HAT NO, 4 


mm rofttAWRE 2300.40 oeo p 


TOP. 

DEMS1TV 

(KB P) 

(IJH/CU.FT) 

-0.4S9K+O3 

0.104K+OB 

0.9540E+04 

0.1040E+03 

TOP, 

SPECIFIC HEAT 

(KB P) 

(STU/UMHJEB PI 

-C.4596E+03 

0.190K400 

-0.24 *66*03 

0.150K400 

-0.14%E+S3 

B.lTOOE+OO 

0.4000E+00 

B.190K+00 

0.M04HO3 

0.2150E+00 

O.S0O4E4O9 

0.24OK+OO 

0.100K+04 

B.289K400 

0.260K44 

0.345K+00 

0.3000E404 

0.3900E+00 

TOP. 

CONDUCTIVITY 

(KB f) 

(6TU/FT-8-DEB FI 

-0.4 WKtfJ 

O.llSlE-03 

-O.249K*03 

0.1181E-03 

-0.149dE*03 

0.12SK-03 

0.400K400 

0.13SK-03 

0.2S04E4O3 

0.1S2K-03 

0.50B46+03 

0. 1478E-03 

0,lOOK«64 

0.I9ME-O3 

0.200K+04 

0.24ME-0B 

0.3000E+04 

0.327K-O3 

TEHP. 

EhISSIVITY 

(KB PI 

(0IHENS1QNLEK) 

-0.459K*tt 

0.S50K+B0 

0.994K44 

0.650K+00 

L 1-900 

- NAT NO. 
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table 6.2 Output For Example Case Two (Table 5.9) 



NAJtlNUN TCHP0WHH6 


aaoo.w m r 


It*. 

DENSITY 

(000 P) 

(UH/CU.FT) 

-0.49960*09 

0.9000(401 

0.9940(404 

0,9000(401 

it*. 

SPECIFIC NEAT 

(000 P) 

(BTU/LBMEQ F) 

-0.49960403 

0.70000-01 

•0.24960403 

0.70000*01 

-0.14960403 

0.1090(400 

0.40000400 

0.19000400 

0.29040403 

0.21000400 

0.90040403 

0.39200400 

0.10000404 

0.2880(400 

0.19000404 

0.30000400 

0.17900404 

o.om&oo 

0.30000404 

0.30300400 


ORIGINAL r/V;?;; ^ 

OF POOR QUALITY 


COMDUCtIVm 
(BW/FT-S-DEO F) 


TEMP. PRESSURE (LB/SQ.FT) 
(DOS PI 0.00 


-0.45961403 

-0.24960403 

0.400004*0 

0.33040403 

0.9004(403 

0.75040403 

0.10000404 

0.12900404 

0.19000404 

0.17900404 

0.30000404 

0.23000400 

0.35000404 

0.30000404 

0.30000404 


TEMP. 
(008 PI 

-0.4900(403 

0.99400404 


0.1389E45 

0.13840*09 

0.30830-05 

0.39990-09 

0.34720-05 

0.48410-0$ 

0.64790-05 

0.89350-09 

0.11990-04 

0.15790*04 

0.30340-04 

0.34830-04 

0.32820-04 

0.43770-04 

0.92770-04 


0.31 

0.13890-09 
0.13890-05 
0. 20830-09 
0.35550-05 
0.34720-09 
0.484(^-05 
0.641. \ 09 
0.85550-09 
0.11550-04 
0.15750-04 
0.30390-04 
0.36830-04 
0.33230-04 
0.43770-04 
0.52770-04 


2.18 

0.30830-05 

0.30830-05 

0.27770-05 

0.34720-05 

0.46280-05 

0.60000-05 

0.76390-05 

0.97280-05 

0.13750-04 

0.16940-04 

0.31720-04 

0.28330-04 

0.34160-04 

0.45000-04 

0.94440-04 


31.16 

0.41660-05 

0.41660-05 

0.90820-09 

0.62500-05 

0.76660-05 

0.90270-05 

0.10880-04 

0.13660-04 

0.17140-04 

0.21300-04 

0.36160-04 

0.32231-04 

0.38610-04 

0.50000-04 

0.60600-04 


211.60 . 

6.60600-05 

0.60600-05 

0.69440-05 

0.87770-05 

0.11110*04 

0.13660-04 

0.16670-04 

0.20140-04 

0.24300-04 

0.29440-04 

0.35370-04 

0.43090*04 

0.49730*04 

0.61110-04 

0.73771-04 


2116.00 

0.64730-09 

0.64720-09 

0.76380-05 

0.94720*05 

0.12020-04 

0.14830-04 

0.18270*04 

0.21730*04 

0.26160-04 

0.31380*04 

0.37770-04 

0.46380-04 

0.53880-04 

0,67310-04 

0.60550-04 


EM6SIVITY 

(OMENStOMiSS) 

0.10000401 

0.10000401 


6L7079-T6 - HAT NO. 1 
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IWI1WJH T0F0MTURE • 


TENP. 

mw' 

(DEO FI 

(IBH/CU^TI 

4.49406+09 

0.17906+jtt 

0.09406+04 

0.17906+09 

fEHP. 

SPECIFIC NEAT 

(060 FI . 

(BTU/liHBS FI 

-0.49946+03 

0.17006+00 

-0.14906+03 

0.17006+00 

0.4000E+6D 

0.19906+00 

0.80046+03 

0.31006+00 

0.00046+09 

0.37906+00 

0.10006+04 

0.37706+00 

0.99406+04 

0.27906+00 

T8NP. 

CONDUCTIVITY 

(060 F) 

(BTW/Ft-8-DEB FI 

-0.49946+03 

0.14006-01 

•0.19946+03 

0.14006-01 

0.40006+00 

0.20006-01 

0.30046+09 

0.29006-01 

0.40046+03 

0.27006-01 

0.90046+03 

0.39006-01 

Tw. 

EMtmrv 

(060 F) 

(DIMENSIONLESS) 

-0.49966+03 

0.12006+00 

0.99406+04 

0.12006+00 


SFSS& Pm m 

0P P0Q R QUALITY 


iwm 417 - HUT NO. IT 

mm lotmm 1000.40 deo f 

tW. DENSITY 

<066 F) (UH/Cl/.FTl 

-0.45946+03 0.92196+09 

0.99406+04 0.52196+03 

TttP. SPECIFIC (CAT 

tfcfi FI (IIUAJHEO FI 

-0.45946+03 0. 10006+00 

table 6.2 (Continued) 
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1 

I 

1 

I 


0,70406*02 

0. 10006*00 

o, 20046*03 

0.10406*00 

0,40046*03 

0.11106*00 

0.60046*03 

0.11706*00 

0,10006*04 

0.13106*00 

O.ISOOEHK 

0.(3706*00 

0.14006+04 

0.14406*00 

0,10006*04 

0.19006*00 

o, 10006*04 

0.19706*00 

0 . 30006*04 

0.16306*00 

0.99406*04 

0.16306*00 

T&f. 

CONDUCTIVITY 

(DCS FI 

(fllWFH-OSO FI 

-0.45966*03 

0.31766-03 

0,76406*02 

0.31766-03 

0.20046*03 

0.33386-03 

0.40046*03 

0.36166-02 

0.60041*03 

0.3B94E-03 

0.1000*04 

0.34496-03 

0.18006*04 

0.37376-02 

0,14006*04 

0.40096*03 

0.16006*04 

0.43836-03 

0.1800E+04 

0.49606-03 

0.20006*04 

0.48306-4)2 

0.95406*04 

0.48386-02 

TEHP. 

6HI881V1TT 

<oc3 Fi 

(DtHENStOUfSd) 

-0.45966*03 

0.19006*00 

0.95406*04 

0.19606*00 


ORIGINAL P/M; f'^ 
OF POOR QIJAM'iY 


T1TAN1UH - HAT NO. 9 

mm mrnm eoo.4o m f 


T6NP. 

DENSITY 

(066 F) 

(UW/CU.FT) 

-0.45966*03 

0.91306*03 

0.95406*04 

0.91306*09 

T6NP. 

SPECIFIC *€AT 

(066 F) 

(fiTU/UHKu F) 

-0.49966*03 

0.96006-01 

•0.19966*09 

0.96006-01 

0.40006*00 

0.13906*00 

0.40046*09 

0.14606*00 

0.12006*04 

0.16006*00 

0.99406*04 

0.16006*00 
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TEhrt 

CONDUCTIVITY 

<060 n 

um/FT«6 


0.13006*011 

Mm*® 

0.12006-03 

0,00046*03 

0.19006-02 

0.10006*64 

0.28OON2 

0.99406404 

0.28006-03 

tw. 

0US9IVITY 

<066 n 

(DlHtNSlBiESfi) 

•0,49966*03 

0.12006*06 

6. 95406*04 

0.12006*00 


ORIGINAL, pim K3 
Of! POOR QUALITY 


Table 6.2 (Continued) 



1 

BODY POINT NUMBER - 3 StfPli MINIVER INPUT TASLE 


TIME 

FILM CHEF. 

REC ENTHALPY 

PRESSURE 

(SEC) 

(UM/80.Ft-fl6C) 

(8TU/UH) 

(Uf/W.fTI 

0.00006*00 

0.64906-09 

0.1126E+05 

O.1292E-01 

0.50006+02 

0.12216-04 

0.11246*09 

O.3449E-01 

0.10006+03 

0,29026-04 

0.11236*09 

0.10906*00 

0.12906+03 

0.36316-04 

0.11236*09 

0.19926*00 

0,19006403 

0.93676-04 

0.11226*09 

0.37776*00 

0.17906403 

0,80096.-04 

0.11236*09 

0,73136*00 

0.20006403 

0.12036-03 

0.11246*09 

0.14406*01 

0.22906403 

0.17996-03 

0.11276*09 

0.18026*01 

0.27506+03 

0,29286-03 

0.11136*09 

O.7749E*01 

0.30000403 

0.30196-03 

O.1109E*05 

0.11266*02 

0.39006403 

0,37106-03 

0.10926*09 

0.17796*02 

0.40006403 

0.39746-03 

0.10606*09 

0.20046*02 

0.49OO6403 

0.41086-03 

0.10276*09 

0.21216*02 

0.90006403 

0.42996-03 

0.99666*04 

0.23146*02 

0.92006403 

0.43296-03 

0.97696*04 

0.23796*02 

0.99606403 

0.44O2E-O3 

0.99776*04 

0.24706*02 

0.94006403 

0.49196-03 

0.92706*04 

0.29996*02 

0.64006403 

0.46616-03 

0.09666*04 

0.28066*02 

0.69406403 

0.93206-03 

0.88766*04 

0.29196*02 

0.68206403 

0.68936-03 

0.06806*04 

0.31246*02 

0.71006403 

0.71126-03 

0.84906*04 

0.31096*02 

0.73806403 

0.89376-03 

0.82286*04 

0.33036*02 

0.79206403 

0.10136-02 

0.81066*04 

0.34296*02 

0.766O6403 

0.11486-02 

0.79846*04 

0.39636+02 

0.78006403 

0.13286-02 

0.70636*04 

0.37386*02 

0.74406403 

0.19406-02 

0.77386*04 

0.39276*02 

0.808O6403 

0.17846-02 

0.76106*04 

0.41286+02 

0.82206403 

0.20906-02 

0.74766*04 

0.43686*02 

0.89006403 

0.2389E-02 

0.71496*04 

0.49386+02 

0.87806403 

0.26196-02 

0.67796*04 

0.99426*02 

0.40606403 

0.28966-02 

0.63896*04 

O.62O2E*02 

0.47606403 

0.34706-02 

0.92846*04 

0.76396*02 

0.10046404 

0.39006-02 

0.48006*04 

0.84866*02 

0.10326404 

0.42676-02 

0.42916*04 

0.89866*02 

0.10606404 

0.44616-02 

0.37976*04 

0.92896*02 

0.10746404 

0.44046-02 

0.39626*04 

0.93016*02 

0.11026404 

0.44996-02 

0.31176*04 

0.93026*02 

0.11166404 

0.49976-02 

0.29036*04 

0.92636*02 

0.11446404 

0.40446-02 

0.24966*04 

0.94076*02 

0.11726404 

0.51336-02 

0.21296)04 

0.99696*02 

0.12006404 

0.51936-02 

0.10136*04 

0.92446*02 

0.12606404 

0.54626-02 

0.12936*04 

0.86496*02 

0.12906404 

0.98146-02 

0.10346*04 

0.89216*02 

0.13906404 

0.63016-02 

0.69306*08 

0.83696*02 

0.13806404 

0.61696-02 

0.96276*03 

0.80326*09 

0.14106404 

0.98446-02 

0.49496*03 

0.76436*02 
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1 ffmuCtURT DEFINITION 


BODY POINT 

3 


100.00 Oft F T81NK ■ 

0.00 DEG F FIJ - 

1.000 

NODE MUrafiR ■ 1 

DISTANCE PROM SURFACE ■ 

0.0000006*00 IN. 

CONDUCTOR KINDER > 

1 


structure m • 

1 SLAB 


NATSttAL t ■ HR81 COAT 


NOK NUMBER * 2 

DISTANCE PROM SURFACE - 

O.lOOOOOE+OO IN. 

NODE NUMBER * 2 

DISTANCE PROM SURFACE - 

0.1000006*00 IN. 

CONDUCTOR NUHBQI • 

a 


STRUCTURE TYPE ■ 

1 SLAB 


MlfttAL 1* LI-400 

NODE NUMBER - 3 

DISTANCE FROM SURFACE - 

0.1429006*00 IN. 

USE NUMBER * 3 

DISTANCE FROM SURFACE - 

0.142900E+00 IN. 

CONDUCTOR NUMBER « 

3 


STRUCTURE TYPE - 

1 SLAB 


MATERIAL t*tt-400 

NODE NUMBER * 4 

DISTANCE FROM SURFACE « 

0.2290006*00 IN. 

NODE NUMBER « 4 

DISTANCE FROM SURFACE - 

0.229000E400 IN. 

CONDUCTOR NUMBER • 

4 


STRUCTURE TYRE * 

1 SLAB 


MATERIAL 1 * LI-400 

NODE NUMBER * 9 

DISTANCE FROM SURFACE > 

0.2819006*00 IN. 

NOK NUMBER • 9 

DISTANCE FROM SURFACE « 

0.287900E*00 IN. 

CONDUCTOR NUMBER * 

9 


STRUCTURE TYPE • 

1 SLAB 


MATERIAL 1- Li-400 


NODE NUMBER- 4 

DISTANCE FROM SURFACE • 

0.3900006*00 IN. 


N006 NUMBER - 4 

DISTANCE FROM SURFACE - 

0.3900006*00 IN. 

CONDUCTOR NUMBER • 

4 


STRUCTURE TYPE « 

1 SLAB 


MATERIAL 1*11-400 
NODE NUMBER* 7 

DISTANCE FROM SURFACE - 

0.4129006*00 IN. 

NOK NUMBER ■ 7 

DISTANCE FROM SURFACE - 

0.4129006*00 IN. 

CONDUCTOR NUMBER - 

7 


STRUCTURE TYPE • 

1 SLAB 


MATERIAL 1* LI-400 
NOK NUMBER * S 

DISTANCE FROM SURFACE * 

0.4790006*00 IN. 
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UMBER • 

8 

DISTANCE FROM 

SURFACE* 

CONDUCTOR 

NUMBER ’ 

8 

STRUCTURE 

TYPE ■ 

1 SLAB 


haterIal 

1 ■ LI-900 


number ■ 

9 

DISTANCE PROM 

SURFACE* 

NUMBER ■ 

9 

DISTANCE PROM 

SURFACE* 

CONDUCTOR 

NUMBER • 

9 

STRUCTURE 

TYPE - 

1 SLAB 


NAtCRiAL 

1- LI-900 



NUMBER • 

10 

DISTANCE PROM 

SURFACE* 

NUMBER ■ 

10 

DISTANCE PROM 

SURFACE* 

CONDUCTOR 

NUMBER * 

ID 

STRUCTURE 

TYPE • 

3 HONEY 

COMB 

MATERIAL 

1 • AL.707M6 


MATERIAL 

R * AL.707M6 


MATERIAL 

3 * AL.70T5-T6 


NUMBER * 

11 

C* 

i 

i 

SURFACE* 

NUMBER* 

11 

DISTANCE FROM 

SURFACE* 

CONDUCTOR 

NUMBER* 

ll 


STRUCTURE 

TYPE * 

4 CORRUQATED 

MATERIAL 

1 - INCONL 617 


MATERIAL 

2 • INCONL 617 


MATERIAL 

3 • TITANIUM 


NUMBER « 

12 

DISTANCE PROM SURFACE * 


ORlQfNAl P/\C:.k 
O.47SOO0C+OO IN. 0F Po °R QU/UI 

0.337&00C+W IN. 

0.S3?900E+O0 IN. 

0.600000&00 IN. 

6.U0M<W IN. 

0.133000E+01 IN. 

0.135000E40I W. 

0.2350001461 in. 


Table 6.2 (Continued) 


lmts is ttc eoNrimmATtON wr body pt. a 


uniGINAL HAS; Ift 

OF POOR QUALITY 


I' 


a J, Oka 

3.0 
4 . 0 

3.0 

0.0 

7.0 

1.0 
0.0 

■ 10 . 


NOS! COAT SLAB 


LI-000 


0.120000 IN. AL.707MA 


SLAB 


1 I 1 

1 I I 

I I I AL.7075-T6 HOttY CONS 

I 1 1 

I 1 1 


0. 110000 IN. AL.7075-T S 
0.000000 IN. 1NC0H 017 


0 V V V 

V VV VV VV 

V V V V V V V tlTANIUH 
VV VV VV V 

V V V V 


corrugated 


*-»12. 


0.080000 IN. IttOi Ai7 


1 

0.100000 IN. 

I 

T 

i 

i 

0.800000 IN. 
1 
I 
I 

I 

I 

I 

1 

0.780000 IN. 
I 
I 
I 
1 

I 

1 

I 

I 

1.000000 IN. 
1 
I 
I 
1 


© 


TINS 


0.00000 TINS STEP 


0.00000 NO. OF STEPS • 


INTEGRATED HAT 
STV/SO.Ff 

CONVICTED 0.0 

RADIATED 0.0 

NET LOAD 0.0 

STORED 0.0 

SUBUICD 0.0 

ADVECtED 0.0 

TPS NET 0.0 


HEATRAtES 

8TU/S8.PT-SEC 

CONNECTED 

RADIATED 

NET LOAD 

STORED 

SUBLIHED 

ADVECTED 

TPS NET 


0.0 

0.0 

0.0 

0.0 

0.0 


© 


0.0 


0.0 


if: 
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SURFACE RECESSION 

DISTANCE 0.00000 IN* RECESSION RATE 0.00000 IN/SEC 

TEMPERATURE DEG F 

T( 0* 100.000 Tt 21* 100.000 T( 31* 100.000 T< 41* 100.000 

T( At* 100.000 t( 11* 100.000 T( 61# 100.000 T( 9)* 100.000 

T( ill* 100.000 Tt 12)* 100.000 


ORIGINAL PAGE F* 
OF POOR QUALITY 

T( SI* 100.000 
f( 101* 100.000 


% 


'I 


0 


flic • 100.00000 TINE STEP • 

INTEGRATED ICAt 
DTU/fiO.ft 


0.98806 NO. OP STEPS • 

heat Rates 

BtU/SO.Ft-SEC 


41 


CONNECTED 

15.3 


RADIATED 

3.0 

12.3 

NET LOAD 
STORED 

12.3 


SUBLIMED 

0.0 


ADVECTED 
IPS NET 

0.0 

12.3 


CONVECtED 

0.3 


RADIATED 

0.0 

0.2 

NET LOAD 
STORED 

0.2 


SUBLIMED 

0.0 


ADVECTED 
TPS NET 

0.0 

. 0.2 


SURFACE RECE88I0N 
DISTANCE 0.00000 IN. 

TEMPERATURE OEG F 

U 11*169.266 t( 21* 162.265 

tl 61*103.731 T< 71*101.635 

T( 111* 100.000 T( 121* 100.000 


RECESSION RATE 

T( 31* 132.831 
ft 61* 100.668 


0.00000 Ut/SEC 

t< 41*116.628 
ft 91* 100.232 


Tt 51* 108.067 
T( 101* 100.001 


TINE * 200.00000 TINE STEP « 1.02477 ND. OF STEPS * 


82 


# 


INTEGRATED HEAT 
8TU/86.FT 

C&MCTE2 

81.0 


RADIATED 

13.8 


NET LOAD 


67.2 

STORED 

67.2 


SUBLIMED 

0.0 


ADVECTED 

0.0 

67.2 

TPS NET 


SURFACE RECESSION 

DISTANCE 0.00000 IN. 


IWWAtURESEBF 
Tt 11*458.735 

Tt 

21- 423.512 

Tt 61* 135.797 

Tt 

71* 119.560 

Tt 111* 100.020 

tt 121* 100.002 


HEAf RATES 
ITU/80.FT-8EC 



CtVMECTED 

1.3 


RADIATED 

0.3 


NET LOAD 
STORED 

1.1 

1.1 

SUBLIMED 

0.0 


ADVECTED 
TPS MET 

0.0 

1.1 

RECESSION RATE 

0.00000 1N/8EC 

! 31* 293.834 

Tt 

41* 211.680 

; SI* 110.078 

Tt 

91* 104.853 


l 

l' 

{ 

Tt 51* 163.758 
Tt 101* 100.026 
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ORIGINAL PAG £ Ki 

TINE ■ 300.00000 tl* STEP * 0.19623 NO. OF STEPS ■ 124 Of POOR QUALITY 

INTEGRATED NEAT HEAT DATES 

fiTU/M.ff BIV/SQ.FT-SEC 


GQMElTED 

312.4 


DADIA1E0 

109.4 


NEt LOAD 
STORED 

207*0 

207.0 

SUBLIMED 

0.0 


A0VEC1ED 
TPS NET 

0.0 

207.0 


CONNECTED 

3.2 


Radiated 

1.9 


NET LOAD 


1.4 

STORED 

1.4 


SUBLIMED 

0.0 


AOUECTED 

0.0 


TPS NEt 


1.4 


SURFACE RECESSION 
DISTANCE 0.00000 IN. 
tWERATURE DEO F 

t< 1)«1012.7S8 T( 2)- 976.538 

tl 61* 333.322 T( 7)- 246.278 

Tl 11)“ 100.301 Tl 12)- 100.020 


RECESSION RATE 6.00000 1N/SEC 

Tl 3)« 782.017 Tl 4)- 402.046 

T( D- 104.383 T( 9)« 138.668 


T( 5)* 481.330 
T< 10)- 100.341 


TDf « 400.00000 Tilt STEP * 0.46984 NO. OF STEPS * 179 

2SHN? m MEAT DATES 

BTU/S8.FT BTU/36.FT-SEC 


CONNECTED 

689.1 


RADIATED 

389.4 


NET LOAD 


303.2 

STORED 

303.2 

SUBLIMED 

0.0 


ADVECttD 

0.0 


TPS NET 


303.2 

SURFACE RECESSION 

DISTANCE 0.00000 IN. 
TEMPERATURE DEO f 


tl D-1255.878 

tl 

2I-1237.S69 

T( 6)- 666.667 

T( 

7)- 324.981 

T< ID* 102.816 

Tl 12)- 100.392 


C0NVEC1ED 

4.0 


RADIATED 

3.9 


NET LOAD 


0.6 

stored 

0.6 


sublimed 

0.0 


ADVECTED 

0.0 


TPS NET 


0.6 

RECESSION RATE 

0.00000 IN/SEC 

3)«1103.991 

Tl 

4)- 999.801 

SI- 386.989 

f( 

4)o 247.969 


T( 5)- 812.666 
f( 10)- 103.293 
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tine • 900.00000 time m * 

IMTEORATED ICAt 

timpf 



1094.9 


RADIATED 

792.9 


NET LOAD 


342.0 

STORES 

342.0 


SUBLIMED 

0.0 


ADVECTED 

0.0 


TPS NET 


342.0 

SURFACE RECESSION 

DISTANCE 0.00000 IN. 
TEMPERATURE DEO F 


T< 11*1208.986 

t< 

21*1277.074 

t( 6)» 793.873 

T( 

71* 646.440 

T1 111- 108.731 

Tl 12)* 101.737 


0.2991? NO. OF STEPS • 249 


HEAT RAtte 
8TU/89.FT-BEC 


CONVICTED 

4.1 


RADIATED 

9.6 


NET LOAD 


0.3 

STORED 

0.3 


SUBLIMED 

0.0 


ADVECTED 

0.0 


TPS NET 


0.3 

RECESSION RATE 

0.00000 IN/SEC 

31*1171.910 

t( 

41*1096.979 

fll* 487.771 

T( 

91* 312.073 


TIME * 600.00000 Tift STEP * 

INTEORAIED HEAT 


BTU/80.FT 



CONVICTED 

1497.7 


RADIATED 

1129.4 


NET LOAD 

366.3 

STORED 

366.3 

SUBLlttS 

0.0 


ADVECTED 

0.0 


TPS NET 


368.3 

SURFACE RECESSION 

DISTANCE 0.00000 IN. 


TEMPERATURE DEO F 
t( 11*1287.774 

T< 

21*1277.686 

T< 61*618.917 

T( 

71* 672.034 

T( 111- 119.991 


121* 104.472 


0.94960 NO. OP STEPS * 922 


NEAT RATES 
STU/88.FT-8EC 

CONVICTED 

4.0 


RADIATES 

3.8 


NET LOAD 

0.2 

STORED 

0.2 

SUBLIMES 

0.0 


ADVECTED 

0.0 


TPS NET 


0.2 

RECESSION RATE 

0.00000 IN/SEC 

31-1179.176 

T( 

41*1071.039 

61* 911.087 

t( 

91- 329.983 


ORIGINAL PAf!E t U 
OP POOR QUALITY 


T( 91* 929.987 
T( 101* 109.496 


T( 31* 930.913 
T( 10)* 116.426 
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TIC* 700.00000 TIIC STEF • 


0.98474 NO. OF STEPS • 


390 


ORIGINAL PACE 
Of POOR QUALITY 


CONVEOTEO 
RADIATED 
NET LOAD 
STORED 
SUBL1CD 

mm 

fW NET 


SURfACe SECESSION 
DISTANCE 0.00000 IN. 
TEMPERATURE 0€G f 
T( 11*1407,730 T 

T( 6)* 841. 1S8 T 

T< 111* 122.300 T 


T( 21*1384.297 
T( 71*487.121 
t( 121* 108.277 


HEAT RATES 
BTU/SO.FT-fiEC 


1999.9 


CONNECTED 

9.7 


1932.4 


RADIATED 

4.9 


427.3 

427.3 

MET LOAD 
STORES 

0.8 

0.8 

0.0 


SUBLINED 

0.0 


0.0 

427.3 

AMCTED 
TPS NET 

0.0 

0.8 


RECESSION RATE 0.00000 1N/8EC 


T( 31*1294.194 
Tl 81*921.981 


T( 41*1123.893 
T< 91* 338.209 



t( 91- 989.418 
T( 101* 123.229 


TINE* 800.00000 TINE STEP • ' 0.84941 NO, OF STEPS * 


INTEGRATED HEAT 
IWSft.PT 

KKVEC1ED 

RADIATED 

NET LOAD 

STORED 

SUBLIMED 

AWECTED 

TPS RET 


surface recession 

DISTANCE 0.001 

tbnperature deq f 
T< 11*1790.231 
t( 41*1009.413 
T( 111- 129.737 


T( 21*1700.999 
T< 71*818.077 
T( 121* 112.903 


CAT RATES 
8TU/88.FT-8EC 


2792.0 


CONttCTEO 

11.7 


2188.2 


RADIATED 

9.4 



943.8 

NET LOAD 


2.1 

943.8 


STORED 

2.1 


0.0 


SUBLIMED 

0.0 


0.0 


AMCTED 

0.0 



943.8 

TAB NET 


2,1 ; | 

1 • 

000 IN. 


RECESSION RATE 

0.00000 IN/SEC l 


T< 31*1939.342 
T( 81*414.490 


T( 41*1344.274 
T( 91* 392.930 


T< 91*1191.487 
T( 101* 130.807 
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TINE • 900.00000 TINE STEP - 

0.65125 NO. OF STEPS 

1 • 

600 

INTEGRATED HEAT 



HEAT RATES 



ITU/SO, FT 



BtU/BO.FT-SEC 



CONNECTED 

4264 .S 


CONNECTED 

16.5 


RADIATED 

3543.0 


RADIATED 

15.5 


MET LOAD 


721.8 

NET LOAD 


0.9 

STORED 

721.8 


STORED 

0.9 


SUBLIMED 

0.0 


SUBLIMED 

0.0 


ADUK1ED 

0.0 


ADVECTED 

0.0 


Tr9 NET 


721.6 

TPS NET 


0.9 


ORIGIN AS. pm: b 
OF POOR QUALITY 


SURFACE RECESSION 
DISTANCE 0.00000 IN. 
TEMPERATURE DEO F 


RECESSION RATE 0.00000 IN/SEC 


tt 11*2031.192 

Tt 

21*2003.605 Tt 31*1665.158 

Tt 

41*1711.928 

t( 61*1347.765 

tt 

71-1123.610 Tt 81* 858.972 

Tt 

91* 543.878 

t( 111* 141.156 

T( 121* 110.692 



TINE* 1000.00000 THE STEP • 0.52612 NO. OF STEPS 

I ■ 

741 

INTEGRATED HEAT 


HEAT RATES 



BtU/SO.FT 


I1W88.FT*8EC 



CONNECTED 

5911.3 

C0MEC1ED 

16.4 


RADIATED 

S11S.6 

RADIATED 

15.7 


NET LOAD 


792.7 NET LOAD 


0.7 

STORED 

792.7 

STORED 

0.7 


SUBLttCD 

0.0 

SUBLIMED 

0.0 


ADMECTED 

0.0 

ADVECTED 

0.0 


TPS MET 


792.7 TPS NET 


0.7 

SURFACE RECESSION 





DISTANCE 0.00000 IN. 

RECESSION RATE 

0.00000 IN/SEC 

TEMPERATURE BEB F 





Tt 1)4036.951 

Tt 

21*2013.918 Tt 31*1887.971 

Tt 

41*1748.456 

Tt 61*1409.575 

T( 

71*1195.487 Tt 81* 933.755 

Tt 

91* 602.838 

t( 111* 15S.092 

T( 121* 126.829 




T( 51*1541.245 
tt 10)» 142.943 


T( 81*1341.306 
tt iOJ- 160.254 


TIRE* 1100.00000 TINE STEP * 0.05627 NO. OF STEPS - 
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_ -is 


'?-■ 

X. 





INTEURAIED HEAT 
ITU/6B.FT 

CONNECTED 

7370.4 


RADIATES 

6561.9 


NET LOAD 


606.5 

STORED 

606.9 

OUBUW) 

0.0 


ADVECTED 

0.0 


ITS NET. 


606.9 

SURFACE RECESSION 

DISTANCE 0.00000 IN. 


TEMPERATURE DEO F 
T< 11.1874.705 

T( 

2J.1872.074 

T( 6)*1 353.060 

T( 

71*1193.591 

T( 11)- 175.627 

T( 13)- 137.475 


HEAT RATES 
8TU/B0.FT-8EC 

CONVECTGD 

11.6 


RADIATED 

11.0 


NET LOAD 


-0.4 

STORED 

•0.4 

SUBLIMED 

0.0 


ADVECTEO 

0.0 


TW NEt 


-0.4 

RECESSION RAlE 

0.00000 IN/SEC 

3).1771.484 

t( 

4)*1653.S49 

6). 906.004 

T( 

9)* 595.531 


TINE ■ 1300.00000 TINE STEF * 

INTEGRATED MEAT 
61U/80.FT 

OOMECTEO 

6995.0 

RADIATED 

7531.9 

NET LOAD 

773.1 

STORED 

773.1 

Sublined 

0.0 

advected 

0.0 

tw Net 

773.1 

SURFACE RECESSION 

DISTANCE 0.00000 IN. 

TEMPERATURE DEG f 
T( 11*1606.336 

T( 81.1610.530 

T( 61.1166.963 

T( 71*997.009 

f< 111- 189.900 

T( 13)> 149.606 

TINE * 1300.00000 tllC STEF * 


0.07375 NO. OF STEPS * 1010 


HEAT RATES 
BtU/80.FT*8EC 



OGNVECTED 

6.8 


RADIATED 

7.4 


NET LOAD 
STORED 

-0.6 

•0.6 

SUBLIMED 

0.0 


ADVECtED 

TF8NET 

0.0 

-0.6 

RECESSION RATE 

0.00000 1N/SEC 

3J.152S.443 

T( 

41*1429.194 

S). 717.067 

T1 

91* 527.224 


0.00439 NO. OF STEFS * 1113 


1 


i , 

t • t 

3 :•* 
I?- 


iMTEflRATED HEAT 

dtu/sg.ft 


COUNTED 

RAfllAtES 

NEt LOAD 

STORED 

SUIUIEO 

ADVECTED 

TF8RET 


8785.6 


8071 .3 

714.3 

714.3 


0.0 


0.0 

714.3 


WAT RATES 


I1U/80.FT-SEC 


CONVEC1ED 

3.3 

RADIATED 

3.9 

NEt LOAD 


STORED 

•0.6 

SUBLINED 

0.0 

ADVECTED 

0.0 

TPS NET 



1 % 


p li° ° 1-. . jet. '?* *r- ^'^■ O 
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ORIGIUM. i;'-A 

OF POOR QUALITY 


*i 


T( 51*1515.039 
t( 10l« 177.750 


T( 5l.i3il.0tt 
T( 13)* 1*1.614 


1 



SURFACE RECESSION 
distance 0.00000 IN. 

IWERAfURE OC0 F 

f( 1M300.W1 T( 2)>lttR.96i 

U Ot* 964.443 T( 7M B24.7BI 

t( ill- 199,629 fl »)• 101,101 


RECESSION RATE 0.00000 IN/SEC 

T< 31-1249.482 f( 4)-U73,469 

T( St- 689,500 f( 91- 492.626 


TINE - 1400.00000 T»C SHF - 
WTEORAfED HEAt 

iimrr 


CflMfcCTEO 

6986.6 


RADIATED 
MET LOAD 

6343.6 

642.6 

STORED 

642.6 


SUBLIMED 

0.0 


ADVERTED 
TPS lit 

0.0 

642.8 

SURFACE RECESSION 



0I8TANCE 0.00000 IN. 


TEMPERATURE DEB f 
TC It- 974.126 

T( 

2)* 990.246 

T< 6)063.097 

Tt 

7)» 698.091 

T( lit- 209.611 4 

4 T1 12)- 172.64? 


0.10089 NO. OF STEPS - 1194 


(CAT RATES 



6TU/B0.FT-SEC 



CONNECTED 

0.9 


RADIATED 

1.7 


NET LOAD 


-0.6 

STORED 

•0.6 


SUBLIMED 

0.0 


ADVERTED 

0.0 


TPS NET 


•0.6 

RECESSION RATE 

0.00000 IN/SEC 

3t- 961.260 

Tl 

41« 913.690 

8I» 932.607 

T( 

9)« 363.919 


INITIAL HASS * 31.26707 OSM/SO.tt.) 


I 

HAIHNH TEMPERATURE OF AL.7079-T6 EXCEEDED AT NODE 10 
MAXIM TEMPERATURE OF AL.7075-T6 EXCEEDED AT NODE 10 
MAXIMUM TEMPERATURE OF AL.767H6 EXCEEDED AT NODE 11 
NAIM* TEMPERATURE OF AL.707H6 EXCEEDED AT NODE 11 


ORIGINAL PASS Kii 
OP POOR QUALITY 


T( St-1079, 632 
T( 101* 200.094 • 


T< St* 647.022 
T( 101* 206.906 « 


<S> 
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ORIGINAL m'£, W- 
OF POOR QUALITY 


Section 7.0 

. INCLUSIONS AND RECOMMENDATIONS 


the EXITS code ii an interactive one dimensional thermal analysis tool 
which he i the capability to model * large variety of aerospace thermostruetures 
with a minimum amount of effort on the part of tbe analyst. The code ii need in 
conjunction eith tbe LANMXN code tbieb produces tbe environments and is linked 
to tbe EXITS code using an output file* Tbe ability to store data describing 
tbe structure and tbe ability to access any ntunber of environment files* allots 
tbe user to make parametric studies using various trsjeetories and TPS structure 
types* trading thermal performance and weight, 

Tbe present program* a capabilities allow tbe analyst to investigate many of 
tbe current and envisioned TPS structures. However, limitations do exist as 
every candidate structure type could not be anticipated. In view of this, an 
effort was made to allow changes, modifications, and additions to be made with a 
minimum of reprogramming effort. Additional capability can be added to give tbe 
user a more versatile tool by incorporating tbe following recommendations; 

1* Add the capability to include additional types of boundary conditions 
on tbe backwall. Presently an adiabatic boundary is assumed. Known 
temperature and known beat flux should be added. 

2, Logic should be added to automatically obange a slab structure type to 
a thin type if tbe computed time step is too small. Presently, tbe 
user aust make this change. 

2. Add logic that would allow beat flux on tbe surface to be computed 
given tbe temperature history of a thermocouple placed within tbe 
structure. 

4. Include a TPS airing routine to automatically optimise tbe structure 
given temperature, weight and cost constraints. 

d. Add additional routines for computing equivalent thermal conductance, 
capacltanoe, and weight for additional structure types e. g, hot see** 
tion stringer-panel etc, 

0. Add logic which till allow all ablation material to be removed. 
Presently tbe surface node must remain in tbe ablation material. 
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Consequently, * email emoont of »bl*tor materiel nmt remain oft the 
mb* true tore. 

Additional studies are recommended to lead confidence to the aooaraey Of 
the effective thermal conductance calculation* of tho variont ettuoture typo*. 
Coaparitoa «ith eaperimefiUl or tost diti would bo Quite ttaefal io do teroifling 
the dependence of the conductance *» * faaetioa of temperature level* te ape re- 
tard difference, jolot or eontaet eonduotanee end material propertio*. 
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PROGRAM MAIN 

EXITS CODE 

EXPLICIT INTERACTIVE THERMAL STRUCTUI.ES CODE 


StSS 1 PAGE IS 
POOR QUALITY 


REMTECH INC. 1983 

BY J. POND 
C t SCHMITZ 
PH. 203-336-8381 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


PARAMETER ( NM5 1 ®20, NMB2-6, N>©3»3, NM54**6 # NMB5«40* NMB6-1 0, NMB1 0»1 00) 
NMB1 - MAX NUMBER BODY POINTS 
NMB2 - MAX NUteER LAYERS/BOOY POINT 
NMB3 - MAX NUMBER MATERIALS/ LAYER 

NMB4 - MAX NUMBER DIMENSIONS/LAYER 

NMB5 - MAX NUMBER CONDUCTORS/NODES 

NMB6 - MAX NUMBER MATERIALS USED 

NMB7 - LARGEST MATERIAL NUMBER 
NMB8 - MAX NUMBER MATERIAL PROPERTY TABLES STORED 
((4*NMB6Hl) 

NMB9 - SIZE OP MONOVARIATE MATERIAL PROPERTY TABLES ARRAY 
((MAX TABLE ENTRIES) *2+1 ) 

NMB10 - MAX NUMBER TIMES FOR MINIVER ENVIRONMENT TABLE 
NM311 - SIZE OP BIVARIATE MATERIAL PROPERTY TABLE ARRAY(2N0 DIM) 
(MAX NUMBER OP TEMPERATURES) 

NMB12 - SIZE OP BIVARIATE MATERIAL PROPERTY TABLE ARRAY (3RD DIM) 
((MAX NUWER OP PRESSURES HI) 


COMMON/ENV IR/TM1 (Ntel 0) ,HC1 (N)©1 0) ,HAW1 (N»fi1 0) ,PRE$1 (NNfil 0) 
WMWGAP/TT ,T2*TH1 ,TH2*TH3,TH,P,H*M1 ,M2,M3,T0L*BET,SIG,XM, 

J CAP 1 ^ CAP2 0 XK 

COMMON/ 1 N I T/TSTART, TSTOP, T I MPT. DT I M, NBP, NEXT* METR I C* 

$ METRIK.METRIX.NSTP, IPFLAG*TINI (NMB1 )*SINKT(NMi1 ).XPI J(NMB1 ). 

$ MBP(Nlte1),l!N,UN2 
COMMON/TAX/ TK(N*B2),XX(NI*5) 

COMMON/T I ME/NNDS. CONV.CRAD, STAB, I SBPG, NODS 
OOMMDN/ARA/T(NMB5),TO(NMB5)*C(NMB5),CD(NMB3)*lCD(NM)5)*L(Ntt)5*2) 
COMMON/ LD/L S ( NM3 1 , NMB2 ) * XP ( NMB 1 * NMB2 * NM64 ) * MATS ( NMB 1 » NMB2, NMB3 ) * 
$ NS(NM31 ) 

COMMON /NOOES/NN, l,TT,TINlT*T$INK,FIJ,TMPMAX(Nte6) 

common/ctmp/taw, dtsm 

COMMON/ CAC/NEXPG, N I T, XMAS 
COMMON/P I CT/NN I S( NMB1 , NMB2) 

WMMON/SUBLM/TSUB^XL.XLP, EXCHT, NAB, ISTAR.NDIV, lAB.EXCHSV.QADV, 

$ QAOVS.TMSV, I DROP 

COMMON/T ITLE/CHAR2, CHARI ,PNAM1 ,PNAM3 
COMMON/PRESS/PRES 

COMMON/ SAV E/XEND 1 ,XEND2,XTST1 ,XTST2,XLTS,XMIN 
DIMENSION TTT(NMB5),ZXX(NM35),PL6G(NMB5,NMB3,2) 

CHARACTER*) 3 CHARI (NMB6) 

CHARACTER«20 PNAM1.PNAM3 
CHARACTER*) 0 CHAR2(N*fe6) 

INTEGER FLG(NMB5) 

I IN-5 

IIN2-5 

CPW-.24 


A~1 


9IG-.1714E-8/3600.0 
TNI 000*0 

C DETERMINE INITIAL CONDITIONS AND STRUCTURE FOR 
CALL INPGEO 

WR ITE ( 9 , 1 26 JTSTART, TSTOP, T I MPT 

WRlTE(9,7Z2)DTlM,9Tte,T0L,BET 

WRITE(9,723)NBP,NEXT,NSTP, IPFLAG 

DO 8000 1-1, NBP 

IAfl-0 

NDIV-4 

I STAR-0 

TINIT-TINKI) 

TSINK-SINKT(I) 

FU-XFlJd) 

C FIND PROPERTIES OF MATERIALS 
CALL DATA1 

C FIND MINIVER ENVIRONMENT FOR BODY POINT 
CALL DATA2(MBP(D) 

NN»NS< I ) 

XX(1)»0.0 

XMAS-0.0 

C DETERMINE NODAL NETWORK 
CALL NODE 
MP»I 

C DRAW PICTURE (INCLUDING NODES) FOR OUTPUT FILE 
CALL PICTUR(9, I ) 

IS8FG-0 

DO 436 IK«1,NN 
IF(LS(I,IK).EQ.6)ISBFG«1 

436 CONTINUE 
TIM-TSTART 
DT-0.0 
NCTRL-0 
NIT-O 
NPR-0 
NPF6-1 
ISV*1 
DTSM°0.0 
NEXFG-0 

DO 140 K“1,NNDS 
C(K)-0.0 
FLG(K)-(1H ) 

140 CONTINUE 

DO 141 K-1 , NCOS 
CD(K)-0.0 

141 CONTINUE 
WRITE(9,749) 

QOONV-O.O 

QRAD-0.0 

QNET-0.0 

QSTOR-O.O 

QSUB-0.0 

EXCHSV-0.0 

EXCHT-0.0 

QTOT-O.O 


ALL BODY POINTS 
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vADV«0.0 
QADVS-0.0 
TMSV-0.0 
QC0R»0.0 
QRAft-0.0 
9NER*0.0 
9$TR«0.0 
QSUR*0.0 
QTOR-O.O 
RECR-0.0 
QADR**0.0 
QAD«0.0 
C 

C START TIMS LOOP 
C 

1000 CONTINUE 

IPINPFG.NE.OOO TO 501 

xxsv-xxd) 

TMPSV*T I M 

WRITE(9,750)TIM,DTSM#NIT 

WRITE(9,600) 

600 W^l , «M t, * 34x ' ,heat rates,! 

-IU «P^*Tft*K.EQ.1 )WRITE<9 # 602> 

•®8S8^ 

Z2»0COR*1 1355.9 
23*QRAD#1 1355.9 
Z4»QRAR*1 1355.9 
Z5«QNET*1 1355.9 
Z6«QNER*1 1355.9 
Z7«QSTOR*1 1355.9 
Z6*»QSTR«1 1355.9 
29«QSUB*1 1355.9 
21 0»Q$UR*1 1355.9 
21 1-QAD«1 1355.9 
Z12-0ADR*1 1355.9 
213-0TOT*1 1355.9 
21 4*QT0K«1 1355.9 

* , K^K (9 ' 605,Z, ' Z2 ' B ' 24 ' Z5 ' Z6 ' 27 ' 28 '»* 

603 *T2Kf 2£i?°Sff®I!2' *T*2 j«®:1.^*oow«st«»* . tsi.M 0 .i », 


f t i*l !f'E l°«^*nM,«$U&LIMED*,T61*h0.1,/, 

! . $2o E SI5? # iIl 6#Fl0 * l<,T51 * ,ADVECTeD# #T61*Pf0.1 # /' 

zzilxxcifliz! #F10J,T5f# ‘ TPS wrf'jh'Un 

2Z2"RECR*1 2. * 

i F <(fTRIK.EQ.0)WRlTE(9 # 6O4J2Zt.Z22 
6o4 Format ox* * surface recession*,/#* distance *,fii.5 



$ ' IN.’,TS1#’RECESSI0N RATE »,F11.5,' IN/SEC*) 
ZZ1«XX(1> *12.0*2.54 
ZZ2«RECR*1 2.0*2.34 
I F (METR IK.EQ.1 WRITE (9,605) ZZ1,ZZ2 
603 FORMAT! IX, 'SURFACE RECESSION',/,’ DISTANCE ’#F11.5# 

$ ' CM. »,T31# ’RECESS ION RATE »,F11*5,’ CM/SEC’) 

DO 2000 INC3-1,NCDS 
N1*L(INC$,1) 

N2-L(INC3,2> 

I F(METR IK.EQ-.0)TTT(N1 )-T(N1 >-439.6 
IF(M£TRlK.EQ*0>TTT(N2)-T(N2>-439.6 
IF(M£TRIK.EQ.1)TTT(N1)-T(N1)/1.8 
IF(METRIK.E0.1)TtT(N2)«T(N2>/1.8 
IF(LS(I, ICD(INC3)).EQ.7)G0 TO 2000 
IP(MATS(I,ICD(INC3).1).EQ.0)G0 TO 11 
C FLAGS FOR MAXIMIM TEMPERATURE OF MATERIALS 

I F (T ( N1 ) .GT. TMPMAX (MATS ( I , I CD( I NC3 > , 1 ) > )FLGG( N1 , 1 , 1 >«1 
IF<T<N1).GT.TMPMAX(MATS(I,ICD(INC3)#1)))FLG(N1)«1H* 

11 IF(MATS(I# lCD(INC3),3).E0*O)GO TO 12 

I F (T (N1 > .GT.TMPMAX (MATS( I , I CD( I NC3) ,3 ) ) )FLGG(N1 ,3, 1 >*1 
i F (T ( N1 > .GT.TMPMAX (MATS ( I , I CD( I NC3) ,3 ) ) )FLG( N1 > »1 H* 

12 IF(MATS(I, ICD(INC3),2)»EQ.0)G0 TO 13 
IF(T(N2).GT.TMPMAX(MATS(I,ICD(INC3),2)>)FLGG(N2,2,1)-1 
I F ( T ( N2 ) . GT . TMPMAX ( M ATS ( I , I CD ( I NC3 > , 2 > ) > FL G ( N2 > « 1 M * 

13 IF(MATS(I,ICD(INC3),3)*EQ.0)G0 TO 14 

I F (T ( N2 ) . GT . TMPMAX ( M ATS ( I , I CD ( I N C3 > , 3 ) ) ) F L GG ( N2 , 3 , 2 ) » 1 
I F (T ( N2 ) .GT.TMPMAX (MATS ( I » I CD( I NC3 > ,3 > > > FLG ( N2 J «1 H* 

14 CONTINUE 
2000 CONTINUE 

IF(METRIK.EQ.0)WRITE(9,714) 

IF(METRIK.E0.1)WRITE(9,715) 

714 FORMAT ( IX, 'TEMPERATURE DEG F’> 

715 FORMAT( IX, ’TEMPERATURE DEG K’> 

WRITE(9,711 ) (JJ,TTT(JJ),FLG( JJ),JJ b 1 ,NNDS) 

IF(LS(I,1 ).NE»7)GO TO 499 

DO 2020 IRM,NNDS 
IF(METRlK.EQ.O)ZXX( IR1 )“XX(IR1 ) *1 2*0 
IF(METRIK.EQ*1 >ZXX(IR1 )»XX(|R1 >*12.0*2.34 

2020 CONTINUE 

IF(METRIK.EQ.0)WRITE(9,716) 

IF(METRIK.EQ.1 >WRITE (9,717) 

716 F0RMAT(1X,»N0DE POSITION INCHES’) 

717 FORMAT ( IX, ’ NODE POSITION CM’) 
WRIT£(9,726)(JJ,ZXX(JJ),JJ«1,NNDS) 

499 CONTINUE 

IFOPFLAG.EQ.DGO TO 500 
DO 2021 IR1*1 ,NCDS 
(F(METRIK.EQ.O)ZXX(IRI )-CD(IR1 ) 
IF(METRIK.EQ.1)ZXX(IR1)-CD(IR1)«1899.0 

2021 CONTINUE 

IF(METRIK.EQ.0)WRITE(9,718> 

IF(METRIK.EQ.1 )WRITE(9,719) 

7 1 8 FORMAT ( IX, ’ CONDUCTORS BTU/SEC-DEG F ' ) 

7 1 9 FORMAT ( IX# • CONDUCTORS WATTS/DEG K' ) 

WRITE (9.7 13) (JJ,ZXX(JJ), JJfcl ,NCDS) 


ORKsK-SAU l, [,7 

OF POOR QUALITY 
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ORIGINAL frYfrjP , , 

* POOR QUALITY 


727 

728 

500 


501 


502 


DO 2022 IR1»1,NNDS 
IF(METRIK.EQ.0)2XX( IR1 )«C(IR1 ) 

If (METRlK.EQJ )2XX( !R1 )*C(|R1 ) *1 899*0 
2022 CONTINUE 

IF<METRIK.E<?.0)WRITE<9,727J 
IF<M£TRIK.EQ.1)WRITE<9,728> 

FORMAT ( IX, * CAPACITORS BTU/OEG FM 
FORMAT* IX, ‘CAPACITORS JOULES/DEG KM 
WftlTE(9,712)(JJ,ZXX(JJMJ-1,NNDS) 

CONTINUE 
NPR-NPR+1 
NPFG-0 
CONTINUE 
MAT*MATS (1,1,1) 

CALL HEATN (T I M, HC, H AW, PRES, I SV ) 

CALL PROP(TO(1),PRE$,MAT,RO,CP,XK,EP) 

CRAD*SI6*EP*P I J * (TO C 1 ) «*2+T$ I NK**2) * (TO ( 1 ) +TS I NK ) 
lf(LS(l,1).N£.7)GO TO 502 

IF ABLATOR SUBLIMER THEN DETERMINE TEMPERATURE OF SUBLIMATION AND 
HEAT OF SUBLIMATION 

CALL $U6PR(PRES,1,T$UB) 

CALL SUBPR(PRES,2,XL) 

IF(TIM.LE*0*0)XLP*XL 
CONTINUE 
TAW*HAW/CPW 
00NV*CPW«HC 

I F(NEXT«(N IT/NEXT) *EQ* N I T)NEXFG*1 
IF(NEXFG.NE.1)G0 TO 466 
C FIND CAPACITOR AND CONDUCTOR VALUES 
CALL COMPCC 
466 CONTINUE 
C DETERMINE TIME STEP 

CALL TM$TEP(DT$M, I ) 

TMPT1-TIM-TSTART 

TTEMP-TMPT1+DTSM 

PTlW*FLOAT(NPR)*TIMPT 

IF(TT£MP*LT.PTlM)GO TO 365 

DTSM st PTlM ta TMPT1 

NEXFG»1 

NPFG-1 

365 CONTINUE 
C COMPUTE TEMPERATURES 
CALL OOMfMP 
JJ-ICO(I) 

JN»LS(I, JJ) 

IF(JN.NE.7)G0 TO 366 
TMSV*T I M 

C FIND RECESSION DISTANCE 
CALL ABSUB(I) 

IF( IDROP.EQ.O)GO TO 3659 
DO 3658 JIL-1,NMB5 
FIG(JIL)«0.0 
CONTINUE 
NEXFG-1 
CONTINUE 


3658 

3659 


366 
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c 

c 


492 


C 

C 

c 

c 

c 


9Q«0.0 

QAOQAD+QADV 

9CONV a QCONV+DTSM#(TAW-TO< 1 ) )#C0NV 
QRAD"QRAD+DTSM*(T0m-T$ INK)*CRAD 
QCOR" ( T AW-TO ( t ) ) #C0NV 
QRAR* C tO < f >-TS INK J *CRAD 
QNER-pCOR-QRAR 
DO 492 JJ«1,NNDS 
Q0*99+(T(JJ)-tO(JJ))*C(JJ) 
T0(JJ)»T(JJ> 

CONTINUE 
QNET*pCONV-QRAD 
Q$TOR«Q$TOR+QQ 
9SUfi° QSUB+ EXCH T-QADV 
9TOT«0STOR+QSUB+QAD 


INTEGRATE HEAT LOADS 


ORIGINAL PACE B 
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C 


TIME STEP 
TIM^TlMfDTSM 


QADR*QADV/DT$M 

0STR*99/DTSM 

OSUR-EXCHT/DTSM-QADR 

OTOR* QSTR+QSURfQADR 

RECR« (XX ( 1 ) -XXSV ) / (T I M-TMPSV ) 


FIND HEAT RATES 


760 


EXCH$V®EXCHT 
NIT a NIT+1 

lF(NIT.GE.NSTP)GO TO 8000 
IF(TIM.LE.TSTOP) GO TO 1000 
I F (METR I K* EQ. 1 )XMAS2»XMAS*4 .8824 
IF(METRIK.EQ.0)WRITE(9,752)XMAS 
I F (METR I K. EQ. 1 ) WR I TE (9,753 )XMAS2 
WRITE(9,760) 

FORMAT(M») 

DO 3000 NDS1®1,NCD$ 

ND1»KND$1,1) 

ND2»L(NDS1,2) 

IF(MATS(I, I CDCNDS1 ),1 )*EQ. 0)G0 TO 770 

!MMA?luf!^;^sf?;2J“^!l, < ls 7 TO , ?7r 2<MATS<l ' IC0(NC,s,> * 3,> * ND1 

i!if. L66 ( . ND2 » 3 * 2 > • 1 } WR 1 TE < 9#76 1 ) CH AR2 (MATS ( I , I CD ( NDS 1 ) .3 ) ) . ND2 

‘^AXlMlM TEMPERATURE OF *,A10,’ EXCEEDED AT NODE », 

CONTINUE 
3000 CONTINUE 
8000 CONTINUE 

711 FORMAT ( (5(3H T(, 13, 2H)-,F8.3,2X,A1 ,4X, * ) ) ) 


770 

771 

772 
761 


773 


726 

712 

713 

749 

750 

752 

733 

720 

722 

723 


F0RMAT<<5<4H XX(,I3, 2H)-,P6.3,6X,i>)> 

FORMAT<<5<3H C(, 13* 2H)«, 6*0.3, t# 5X))) 

F0RMAT<<5<4H CD(,I3* 2HJ-, 610.3,1, 4X})> 

FORMAT <1 HI) „ . ^ „ 1(# a 

FORMAT <///,1H .7HTIME ■ ,F12.5,5X,12MTIM£ STEP » ,F12.5,5X, 
$ 13HN0. OF STEPS ■ ,110) 

FORMAT <///,» INITIAL MASS ■ 


original pac; - 
of poor quality 


*,F1 1 .5,3X, * (L0M/S9.FT* ) ',///) 


lift * r ' ' ' » ’ f f / 

FORMAT (///] • INITIAL MASS • *,F11. 3, 3X,«(KGM/SQ.M. )',///> 
FORMAT <1 HI Jsx^’TSTART ■ »,F12.3,3X,*TSTOP - »,F12*3,5X, 

$ ‘TIMPT ■ »*F12.3) 

FORMAT (1H ,SX,»DTIM « *,F12.3,5X,‘STA6 ■ «,F12.3,5X, 

$ ‘TOL - *,P12.S,3X,*6ET - ‘,F12.3> 

F0RMAT<1H ,5X,*hBP - «,3X,IS,9X,‘NEXT -*,3X,I5,9X, 

$ »NSTP - M6.9X.MPFLA6 - «,I8,/) 


WRITE (I IN2,724) 

724 F0RMAT<//,15X,* EXECUTION COMPETE *•--»> 

WRIT6<IIN2,723)FNAM1 

723 FORMAT </,1X,« OUTPUT FILENAME * *,A20,/) 

CL OSE< UN IT*7, STATUS* 'KEEP* ) 

CLOS6(UNlT«9p STATUS- <KEEP« ) 

CALL EXIT 
END 
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SUBROUTINE /fcSUB( II) ° * P °° R QUAU,V 

SUBROUTINE TO COMPUTE RECESSION RATE OF ABLATOR AND ALSO 
TH EHeATREQUIR£0 TO CAUSE tHE MeTt LINE TO RECEOE. 
parameter < nm§ t * 20 , nmb 2*6 , nm93 *3 * nmm «6, ni^ 6 s* 4 o * nmbs» 1 d i 

COMMON/ 1 N I T/TSTWT, TSTOP, TlMPT, OTI^Wp! N*T. METRIC 

$ |enNfenjlN^ii« ,IWLAB ' 1flNI<N * ,, ’ SINI<T(N, ® ,, ‘ x ^ IJ(N ®' , » 

v”mlop* XL * XLP ' £XCHT * NAe * 'star.ndiv, iab.exchsv.wv, 

COMMON/TIME/NNDS, CONV,CRAD, STM, | SbFG. NCOS 
OOMMON/ARA/T(NMB5),TO(NMB5) # C(NM33) # CD(NMB5)4 IC0(NMB5)*L(NNi1S 21 

COMMON/TAX/TK ( N^2 ) , XX ( Nl€S ) 

»»;NSi^ 2 v s,NK ' Fij * TMPMW( ^> 

COMMON/PRESS/PRES 

C0MM0N/SAVE/XEND1 ,XEND2,XTST1 , XTST2 » XLTS* XM I N 
^WTITLE/CHAR 2 , CHARI , FNAM1 , FNAM3 * " 

CHARACTERS 0 CHAR2(NMB6) 

CHARACTERS3 CHARI (NMB6) 

CHARACTER»20 FNAMKFNAM3 
01 MENS ION ZXX(NMB5) 

IF(NAB.EQ.O) GO TO 1000 
JJ-ICDOI) 

IIPI-II+I 
JJP1*ICD(I IP1 ) 

DIV°FLOAT(NDlV) 

JN**LS(I, JJ) 

N1*L( I l # t) 

N2«L(|| # 2) 

N3«L( I IP1 t 2) 

MA*MATS(I,JJ,1) 

COMPUTE RECESSION 01 STANCE 
QAOVS-QADV 

CALL PROP(TT , PRES, MA, RO, CP, XK* EP) 

DS«EXCHT/(XLP#RO) 

EXCHSV-EXCHT 

I0R0P»0 


IF(ISTAR.NE.O)GO TO 555 
I STAR-1 

C COMPUTE NODE BOUNDARIES 

XEND1*(XX(N2)+XX(N1 ) )/2.0 
XEND2- (XX ( N3)+XX(N2))/2.0 
XMIN-XEND1/DIV 
535 OONTINUE 
C MOVE NODE LOCATIONS 
XXCN1 )**XX(N1 )+DS 
XX(N2)*XX(N2)+0S/3.0 
XP(I, J4,1 )-XP(l, JJ # 1 )»DS 
XTST1 -XEND 1 -XX ( N1 ) 
XT$T2-2.0*DS/3.0 
XLTS»XX(N2)-XX(N1) 
IF(XLTS.GT.XMIN)G0 TO 560 
XTST2-XEND2-XEND1 
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.k ,.iw ' a -V- ?. . 0 




TT 


V", 


\r.$, •• ■ 


1 


I 


* 


I 

I 



I 


1 

I 

I 

I 

1 



I DROP* 1 original pagc q 

560 CONTINUE 0F POOR QUAUTy 

XEN01«X£NDltXTST2 

C COMPUTE EFFECTIVE HEAT OF ABLATION 

0MEL*RQ» (XL P*XTST1 +XL *XTST2+CP**XT ST2* (TSUB-TO ( N2 ) ) ) 
XLP*QMEL/<R0**(XTSmxTST2> ) 

C COMPUTE AOVECTED HEAT 

QADV-R0«CP*XT$T2*(TSUB-T0(N2) ) 

(F(IDftOPiEQ«1 )60 TO 520 
00 TO 1000 

520 CONTINUE 

C RENUMBER NODES IF NODE DROPPED 
NNDS-NNDS-1 
NCDS-NCDS-1 
DO 521 KK»1,NND$ 

IF(KK.EOJ) 00 TO 521 

KKP1-KK+1 

XX(KK)*XX(KKP1) 

C(KK)*C(KKP1 ) 

T0(KK)«T0(KKP1) 

?(KK)»T(KKP1 ) 

521 CONTINUE 

XEND2»(XX(N3)+XX(N2))/2.0 
DO 522 KK«1,NCDS 
IF(KK.EQ*1 ) GO TO 522 
KKP1-KK+1 
CD<KK)»CD(KKP1) 

ICD(KKJ*ICD(KKP1> 

522 CONTINUE 
WRITE<9,700> 

NNIS(I,JJ)*NNI$<I, JJ)-1 

C PRINT PICTURE OF NEW CONFIGURATION 
CALL PICTURE, I ) 

IF(NCDS.E<?.1 )G0 TO 2000 
IP(JJ.NE. JJP1 >G0 TO 2000 

1000 CONTINUE 

700 FORMAT (1H ,//,« NODE DROPPED FROM SUB L I MER- ABLATOR MODEL*,//) 

GO TO 3000 

2000 CONTINUE 

WRITEO IN2,2003)FNAM1 

2003 FORMAT (//, IX, ’RUN STOPPED DUE TO INSUFFICIENT ABLATIVE MATERIAL*, 

$ * LEFT*,//, IX, ’OUTPUT FILE « *,A20) 

STOP 

3000 CONTINUE 
RETURN 
END 
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X if 


w:""- 
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SUBROUTINE OOMPDC 


ORIGINAL H'liJ, !■• 

OP POOR QUALH7 


SUBROUTINE TO COMPUTE VALUES OP THERMAL CAPACITORS AND CONDUCTORS 
ODf4MDN/i^^ MWS-3, IM4-6, NH33»40 # NMBO- 1 0> 

( C»MMO^eAP/Tl ^tZ,TH 1 ,TM 2 ,-nO,TH. H, Ml , MZ.MS.TOl, , 0 £ T , S '©, JW, 

COMMON/TAX? TK(N®2),XX(NWJ) 

COMMON/T I ME/NNDS * CONV » CRAD, STAB* ISBFG.NCDS 

OOMMON/ARA/T(NMB5),TO(NMB3)»C(NMSS) # CD<NMB5),ICD(NNB5).L(NI«5.2) 

COHMON/LD/^(M61»l#62)»XP(NHJ1 # Nf62»NW^fMATS(Nf^tNM92|ilNu)] 

> NSlNMB 1 ) 

I^heV ’ n ' r ' N ' T ' Ts 1 NK * F 1 J ’ TMPMAX ‘ N ® 6 1 

NEXPG“0 


DO 176 KH # NNDS 
C(K)«0.0 

176 CONTINUE 

DO 177 K»1,NCDS 
CDUO-O.O 

177 CONTINUE 

DO 226 I M,NCDS 
JJ"ICD(I I ) 


JN=LS(I,JJ) 

N1°L( 11,1) 

N2*L( 1 1,2) 

MA»MATS(I,JJ,1) 

IPUN.EQ.6) GO TO 227 
IP(JN.EQ. 1 ) GO TO 225 
IP(JN.EQ*7) GO TO 225 
GO TO 227 
225 CONTINUE 

° WM n» (T^Nt?+TO( N2) )/2 ^° NDUCTANCE 0F SLAB AND ABLATOR NODES 

CALL PROP (TT, PRES, MA,*RO,CP,XK*EP) 

DI«XX(N2)-XX(N1) 

CTMaDI *R0*CP/2,0 
CMAS»DI*RO 
IF(NIT.NE.O)CMAS«O*0 
XMAS»XMAS+CMAS 
C(N1 )*C(N1 )+CTM 
C(N2)*C(N2)+CTM 
CDUU-XK/DI 
GO TO 226 

227 CONTINUE 


C 


C 

c 


1 

2 


LOAD GEOMETRY AND MATERIAL NUMBERS INTO COMMON - GAP 
CALL L0AD(I,JJ,N1,N2) 

ITST-JN-1 


COMPUTE EQUIVALENT CONDUCTIVITY 
OTHER STRUCTURES 

GO TO <1,2,3,4,5>,ITST 

CONTINUE 

CALL R6AP 

GO TO 7 

ODNTINUE 

CALL HONEY 


AND CAPACITANCE OF ALL 
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60 TO 7 . 

3 CONTINUE ORIGINAL I Vi..*'. 

CALL 00R6 OP POOR QUAU’iY 

00 TO 7 

4 OONTINUE 
CALL STAND 
00 TO 7 

$ CONTINUE 

CALL THINS 

7 CONTINUE 

C(N1)-C(N1)+CAP1 
C(N2)»C(N2)+CAP2 
IF(NIT.NE.0)XM«0*0 
C SUM MASS OF STRUCTURE 
XMAS-XMAS+XM 
CD(I I )»XK 

226 CONTINUE 

RETURN 
END 



ORIGINAL PAGE Hi 
OF POOR QUALITY 

SUBROUTINE COMTMP 

THIS SUBROUTINE COMPUTES THE TEMPERATURES 

PARAMETER ( NMB 1 *20 # NMB2-6 # -3 # NMB4 *6 , NA©9 -40 # NNB6- 1 0 ) 

9 NS(NMi1 ) 

OOMMON/TIME/NNOS.CONV, CHAD, STM.ISSfS, NCOS 

S!ISK^/,!!!Pl , * TO(N ®5 , > c(N ® 5, « ccl(N *3),ICO(NI«!S),L(Nie9,2) 
C0MWN/SUBLM/TSUB,XL,Xl,P,6XCHT.N«, ISTAR.NOIV, l*,JXCHSV,QAOV 
$ QADVS.TMSV.IDHOP ,y ' 

NAB"0 

DO 456 JJ-1*NNDS 

CHr ?5>T2^SI E IF ™ ,N ! KIN SECTIONS EXIST ANYWHERE IN STRUCTURE 
I Ft I SBFG.EQ.O)GO TO 615 


C THIN SKIN LAYER 
JM2-JJ-2 
JP2-JJ+2 
JP1«JJ+1 
JM1-JJ-1 

IF(JJ.EQ.NNDS)GQ TO 590 
IF(CD(JJ),GT*1 «0E9)G0 TO 601 
IFtJJ.EQ.DGO TO 615 
599 CONTINUE 

IFtCDtJMI ).GT.1 *0E9)G0 TO 610 
GO TO 615 

601 CONTINUE 

C NObE ABOVE THIN SECTION 
COC(JJ)/(C(JP1)4C(JJ)) 

IF(JJ,6Q»1)G0 TO 602 
IT“NNDS-1 

Al«TO(JM1)*CD(JM1) 

A3»T0(JJ)*CD(JM1) 

IF(JJ*EQ. IT)G0 TO 603 
A2 S T0(JP2)#CD(JP1 ) 

A4«TO(JJ)#CD(JP1) 

GO TO 461 

603 CONTINUE 
A2*0.0 
A4»0.0 
GO TO 461 

602 CONTINUE 

0 THIN SKIN ON SURFACE* NODE ABOVE THIN SECTION 
A1 «TAW*CONV+TS I NK#CRAD 
A3-T0 ( J J ) *CONV+TO t J J > *CR AD 
IF(NNDS.EQ»2)G0 TO 604 
A4*T0(JJ)*CD(JP1) 

A2*T0 ( JP2 > *CD ( JP1 ) 

GO TO 461 

604 OONTINUE 
A4»0.0 
A2-0.0 
GO TO 461 

610 CONTINUE 




c nope below thin section 
coc<jj>/<cumih€(jj>> 
imj.E9.2N30 TO 612 
A1"T0(JM2)«CP(JM21 
A3»TO(JJJ*C0(JM2) 
lF(JJ.eo.NND§)60 TO 613 
A2*T0(Jr1 )*CD(JJ) 

A4»T0UJ)*CD(JJ> 

00 TO 461 

613 CONTINUE 
A2-0.0 
A4-0.0 
60 TO 461 

612 CONTINUE 

C THIN SKIN ON SURFACE, NODE BELOW THIN SECTION 
A1-TAW«C0NV+T$INK*CRAD 
A3-T0 ( J J ) *C0NV+T0 ( J J > *CRAD 
IF(NN0S.EQ.2)6O TO 614 
A2»T0(JP1>*CD<JJ> 

A4«T0(JJ>»CD(JJ> 

00 TO 461 

614 CONTINUE 
A4-0.0 
A2-0.0 

461 CONTINUE 

F1«(A1+A2)*CC 
f>(A3+A4)«CC 
GO TO 460 

613 CONTINUE 

C STANDARD HEAT BALANCE 
IF(JJ.NE.1 )G0 TO 457 

C SURFACE NODE 

F 1 »TS I NK«CRAD+TAW *CONV+TO ( 2 > *CD ( 1 > 

F2«T0( 1 ) * (CRACH-CONV+CD ( 1 ) ) 

60 TO 460 

497 CONTINUE 

IF(JJ.NE.NNDS)60 TO 496 

C LAST NODE 
JM1-JJ-1 

F1-T0(JM1)*CD<JM1) 

F2»T0(NNDS)*CD(JM1 ) 

GO TO 460 

496 CONTINUE 

C GENERAL NODE 
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JM1*JJ-1 

JPl-JJ+1 

Fl*T0(JM1 )*CD(JM1 )+T0( JP1 )*CD(JJ) 

F 2*T0 C J J ) * C CD ( J Ml )+CD( JJ>) 

460 CONTINUE 
C COMPUTE TEMPERATURES 

T(JJ>«T0<JJH<F1-F2>»<DTSM/C(JJ>> 

C CHECK TO SEE IF SUBLlMER TEMPERATURE HAS BEEN EXCEEDED 


IF( JJ.NE.1 ) GO TO 496 


IF(LS(I,1)»NE»7) 60 TO 496 


EXCHT«0*0 

IF(T(JJ).l,E,TSUB) GO TO 456 
NAB»f 

EXCHT-(T(JJ)-TSUB)#C(JJ) 
T(JJ)*TSU8 
456 CONTINUE 
RETURN 
ENO 
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SUBROUTINE CQRG 

s^MjcApf^cAPa;^' 1 ” 1 * Th2 * TH3 * 1>1 » ,!> » h * m1 »M2*«» T t , L.ee T *s | e 

COM^N/fACT/W 10,2>,YY< (0,2) 

£2£S^i5 ( ,i!& EM ’ ( '0).F<10,10),ASF<10.10) 

COMMON/ PRESS/PRES 

T30-CT1+T2 1/2.0 

T3-T30 

CONK-1 .0E6 

AKC-C0NK#2,0*TH3 

P2-P/2. 0 

TTt-TI 

TT2-T2 

TT3-(T1+T2>/2.0 

B1-P2/2.0 

B2-TH/2.0 

B3-SQRT (Si #*2+B2#*2) 

A1 -P2 
A3-2,0«B3 

- „ VOL-THHTH2+(2.0«B3)«TH3/P2 
c START ITERATION FOR MIDPOINT TEMPERATURES 
DO 100 1-1,100 

CALL PR0P<TT2,PRES,M2,l(HO2,CP2,XK2,EPP(2)) 
call prop (TO^ es ( msIuhosIcfsIxkj EPPO) i 

IF(LNEJ)GO tO 101 

M'M *■“ w EA “ " 1HREE SURfACES roR 

DO 102 1 1-1,3 
EPP(2)-1 .0 
DO 103 JJ-1,2 
XT-0.0 
YT-TH 

I F C I I.EQ.2.AND. JJ.EQ.f 1YT-0.0 
I F ( 1 1 . EQ*3 . AND. J J. EQ. 1 ) YT-0 *0 
IFC I I.EQ.1 .AND. JJ.EQ»2)XT-P2 
I F( I l*EQ.3.AND*JJ.EQ.2)XT“P2 
XX(II,JJ)-XT 
YY(II,JJ)-YT 
103 CONTINUE 
102 CONTINUE 

° F,N call°vfac(3) V,EW factors AND RadiAn T interchange FACTORS 

CALL SRIPF(3) 

A2F23-ASF(1,3) 

A1F13-ASF(1,3) 

101 CONTINUE 

AK1-XKWH1/B1 

AK2-XR2*TH2/B1 

AK3-XK3*TH3/B3 

C COMPUTE EQUIVALENT CONDUCTOR 

Cl -AK1 *AKC*AK3/ (AK1 «AKC+AK1 *AK3+AKC*AK3) 

C2-AK2#AKC*AK3/ (AK2«AKC+AK2*AK3+AKC*AK3 ) 


C 

C 


C COMPUTE JAO I AT I ON CONDUCTOR 

C4"Af f 13*S IG*<Tf ##2+T3#*2)*(T1+T3) 

C 

TEST-ABS(T3-T30)/T3 
imEST.LT.TOUGO TO 200 
TT3*T3 
T30»T3 

100 CONTINUE 
60 TO 300 
200 CONTINUE 

T12-ABS(T1-T2) 

T13«ABSCT1*-T3) 

C COMPUTE TOTAL HEAT TRANSFER 
0»T13«(C1+C4)/P2 
XK-Q/T12 

C OOMPUTE EQUIVALENT CONDUCTIVITY 

c co^i^clTwf ^ 02 ^ 2,0 * 63 ''™^ 03 ^ 2 

CAP1«( VOL/2.0 ) *RH01 *CP1 
VOL/2.0) *RH02*CP2 
300 CONTINUE 
RETURN 
END 
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471 


100 


701 

707 


SUBROUTINE DATA1 
SUBROUTINE TO READ AND STORE ThERMQPHYSICAL PROPERTY DATA 
PARAMETER ( NMB 1 *20, NMB2-6, NMB3«3 # NMB4-6 ) 

PARAMETER (NM38-41 ,NMB9-41 ,NMB6-10, Ntel 1-20.NMB1 2-0) 
COMM0N/DTA/CC ( NM38 , NMB9 ) , BSV ( NMBB , NMB 1 1 , NMB 1 2 ) 

COMMON/CSU0/CCS ( 2, NMB9 ) 

COMMON/ LD/ L S ( NMB 1 ,NI«2) ,XP(NM3l , NMB2 , NMB4 ) , MATS ( NMB 1 , NMB2 1 NMB3 ) , 
$ NS(NMBI) 

COMMON/T ITLE/CHAR2, CHARI ,PNAM1 ,FNAM3 

COMMON /N0DES/NN,I,TT,TINIT,TSINK,FIJ,TMPMAX(NPB6) 

COMMON/fNlT/TSTART,TsTOP,TlMF»T,DTlM,NBP,NEXT, METRIC- 

i S!I5 , !k?!* miX#NSTP ' ,PFL AG,TINI (NM91 ),SINKTCNMB1 ),XFI J(NNet ), 
f MBPlNMBI ), I IN, I IN2 

CHARACTER*^ CHAR2(Nlfc6),TE$Tl 
CHARACTER*^ CHARI (NMB6),TEST2 
CHARACTER*20 FNAM1,FNAM3 
DIMENSION MT$T(NMB6),8B(6),ARD(8)#ARDS(8) 

0PEN(UNIT*8,NA^«* INP1 .DAT*, TYPE- »0L0», RECORDS IZE-132) 
WRIT£(9,703) 

DO 471 JJ»1,NMB6 
MT$T(JJ)»0 
CONTINUE 
IC-0 

NLA‘NS( I ) 

LOOP 1 TO NUteER OF LAYERS 
DO 400 LT-1,NLA 

LOOP 1 TO NUMBER OF MATERIALS PER LAYER (MAX) 

DO 500 l>M ,NM33 
MA«MATS(I,LT,IM) 

IF(MA.EQ.O)GO TO 500 
CONTINUE 
R£AD(8,701)KD 

FORMAT( I3,2X, I5,4X,A1 0,1X,A13,E1 0*0) 

FORMAT(5X,»5,4X,A10,1X,A13) 

IF(KD.LT.O)GO TO 300 
CHECK TO SEE IF MATERIAL NUMBER MATCHES 
IF(KD*NE.MA)GO TO 100 
BACKSPACE (UNIT-8) 

READ (8, 7 01 )KD* JD,TE$T1 ,TEST2,TMPMXA 

DO 351 K5-1,MB6 

KSV-K5 
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C CHECK TO SEE IF MATERIAL HAS BEEN USED 
IF(MA.EQ.MTST(K5))60 TO 352 

351 CONTINUE 
lOIOfl 
MTST( IC)*MA 

C RENUMBER MATERIAL INDENT! FI ERS 
MATS(I,LT,IM)-IC 
TMPMAX(IC)-TMPMXA 
GO TO 353 

352 CONTINUE 
MATS(I,LT,IM)-KSV 
REWIND (UNIT-3) 

GO TO 500 

353 CONTINUE 
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$ 
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v 
ii 
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C STORE TITLES OF POOR QUALITY 

CHAR2(IC)»TEST1 
CHARI (1C) -TEST2 
DO 250 IB-1,4 
IF( IB.EQ.1 )GO TO 251 

C READ TABLE TITLE FOR TABLE 2, 3, AND 4 
READ ( 8,7 07 ) JO, TEST1 ,TEST2 
251 CONTINUE 

C STORE NUlfcER OF ENTRIES 
IT«(I0-1)»4-HB 
CC< IT, 1) -FLOAT !JD> 

DO 200 ITT-1,JD 
READ(8,702)(ARD(MR),MR-1,8) 

IF(ARD(1).LT.0)G0 TO 600 
IF( ITT.GT.1 )GO TO 210 

0 STORE MAXIMUM TEMPERATURE FOR PRINTING IN DESIRED UNITS 
I F (METR I K. EO. 0 JTEMMAX-TMPMAX ( 1 0-459.6 
I F (METR I K. EQ. 1 >T£MMAX»TMPMAX ( 1 0/1 .8 

I F ( I B . £Q . 1 . AND * METR I K . EQ, 0 ) WR I T£ ( 9, 800 >TEST1 , KD, TEMMAX, TEST2 

800 F0RMAT(//,8X,A10,* - MAT NO. »,I2,//,* MAXIMUM T£MPERATURE»,1 IX, 
$ F7.2,* DEG F*,//,5X,»TEMP.*,9X,A13,/,4X,*(DEG F)»,6X, 

$ *(LBM/CU.FT>*,/) 

I F( IB.EQ.1 .AND.METRIK.EQ.1 )WfilTE(9, 801 )TEST1,KD, TEMMAX, TEST2 

801 F0RMAT(//,8X, A1 0, * - MAT NO. *, 12,//, » MAXIMUM TEMPERATURE*, 11 X, 
$ F7.2,< DEG K*,//,5X,*TEMP.*,9X,A13,/,4X,*(DEG K)*,6X, 

$ ' (KGM/CU.M. )*,/) 

IF(IB*EQ.2*AND.ME , miK.E0.O)WRITE(9,802)TEST2 

802 FORMAT!//, 5X, *TEMP.*,7X,A13,/,4X,» (DEG F)»,5X,»(BTU/LBM-DEG F)*,/) 
IF( IB.EQ.2.AND.METRIK.EQ.1 )WRITE(9,803)TEST2 

803 FORMAT!// ,5X, * TEMP. * ,7X, A1 3,/ ,4X, * ( DEG KX,4X, 

$ *(JOULES/KGM-DEG K)»,/) 

IF! IB.EQ.3.AND.METRIK»EQ.0)WRITE(9,804)TEST2 

804 F0RMAT(//,5X,»TEMP.*,7X,A13,/,4X,»!DEG F)*,4X, 

$ * (6TU/FT-S-DEG F>»,/) 

IF(IB.EQ.3.AND.METRIK.EQ.1)WRITE(9,805)TEST2 


805 


FORMAT (//,5X, *TEMP. * ,7X, A1 3,/ ,4X, * (DEG K)‘,4X/ (WATTS/M-DEG K)*,/) 


IF(IB»EQ.4.AND.M£TRIK.EQ*0)WRITE(9,806)TF.ST2 

806 FORMAT!//, 5X, ’TEMP. »,8X, A13,/,4X, * (DEG F)*,4X, * (DIMENSIONLESS) *,/> 
IF!IB.EQ.4.AND.METRIK.EQ.1 )WRITE(9,807)TEST2 

807 FORMAT (//, 5X, * TEMP. * ,8X, A1 3,/,4X, * (DEG K)*,4X,* (DIMENSIONLESS)*,/) 
210 CONTINUE 

A-ARD(I) 

B-ARD(2) 

IF(METRlK.EQ.0)AAA«A-459.6 

IF(METRIK.EQ.1)AAA»A/1.8 

BBB°B 

IF(METRIK.EQ.1 .AND. IB.EQ.1 )BBB-B*1 6.01 8067 
IF(METRIK,EQ.1 .AND. IB.EQ.2)BBB-B**4187.6 
IF(METRIK.EQ.1 .AND. IB.EQ.3)BBB-B**6228.343 
WR I TE ( 9,7 05) AAA, BBB 
705 FORMAT! 1X,E12.4,3X, El 2.4) 

K1-ITT«2 

K2-K1+1 

C STORE INDEPENDENT AND DEPENDENT ARRAYS 
CC( I T, K1 )»A 
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200 

600 


606 


606 

606 

600 


610 

810 


620 

811 


603 

602 

250 


CC(IT,K2)-B 
CONTINUE 
GO TO 250 
CONTINUE 
B I VAR f AT TABLE 

IARDS«IP|X(-ARD(1)) 

IF(METRIK.£Q*1)G0 TO 605 

FORHAtl/AJSx.'OOKDUCT.iV ITT' ,/,J3x, > (BTU/FT-S-DI6 F)< 

i '/«%&, mssMt (^^.ptm;/X.<om f! - ( 

GO to'610 * 

CONTINUE 

00 606 MR1-2* IARDS+1 
ARDSCMR1 )-ARD(MR1 ) *47.88 

F0FW(//,3JX, ' CONDUCT IV I TY',/,33X, * (WATTS/M-DEG K) 

$ 7(0Sl!IjX)) PR£SSURE <N/Sg.M)-,/,4X,>(0EG K) <, 
continue' * 

»KITE(9,eiO) 

P0RMAT(13X # »») 

stone mmtn of pressures 

CC(IT»2)-ARD(1) 

NARD—ARD(1>+2 
STORE PRESSURES 
00 601 IKS*3,NARD 
IM1-IKS-1 

CC(JT,IKSJ*ARD(IM1) 

CONTINUE 
NStR»NARD+1 
NSS-NARD-2 
READ REST OF B I VAR I AT TABLE 
DO 602 I6-1,JD 

READ(8,702) <ARD(MR),MR»1 * IARDS+1 ) 

DO 620 MKR-1, IARDS+1 
IF(»€TR ,K .E0.O)AR D S(1J-ARD(1)-45g.6 
IF<METRIK,EQ,1>ARDS<1)«ARD<1)/1*8 
ARDS(MKR)-ARD(MKR) 

E(? * 1 )aR DS(MKR)*ARD (MKR ) *623 1 . 1 

CONTINUE 

SAVE TEMPERATURES 
CC(IT,NSTR)-ARD(1) 

NSTR-NSTR+1 
00 603 17-1 ,NS$ 

171-17+1 

SAVE DEPENDENT VARIABLE 
BSV(IT, 16# I 7 ) — ARD (171) 

CONTINUE 
CONTINUE 
CONTINUE 

J2°} K0S# JD ' TEST1 ,TEST2,TMPMXA 
IF(KDS.NE«KD)GO TO 1000 
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C STORE TWO ABLATOR PROPERTIES 
DO 1100 IM2-1,2 
CCS C I M2 # f >»FL0AT ( JD> 
lP(IM2*Ep.1.AND.METRIK.Ep.0)WRITE(9,830>TEST2 

830 FORMAT <// #4X # ' PRESSURE* t 2X, A1 3,/ # 3X, * ( LB/SQ* FT) ' ,6X# 

$ '(DEG F)»,/) 

IF(lM2.Ep.1.AND.M£TRIK.Ep.1)WRlTE(9,831)TEST2 

831 PORMAT(//,4X* ‘PRESSURE* #3X # A1 3,/,4X, ' ( N/Sp*M) ' #7X, 
$'(DEGKJ*,/) 

lP(IM2.Ep*2.AND.METRIK#Ep.0)WRITE(9*832)TEST2 

832 FORMAT(//,4X # 'PRESSURE*, 5X,A13 # /,3X,*(Lfi/$p.FT)*,3X, 

$ '( BTU/LBM)*,/) 

lP(IM2.Ep.2.AND.METRIK.Ep.1 )WRITE(9*833)TEST2 

833 PORMAT(//#4X, < PRESSURE* *5X, A1 3,/*4X> ♦ ( N/Sp*M) * ,5X, 

$ '( JOULES/KGM) *»/) 

DO 1101 ITT«1,JD 
READ (8, 702) A, B 
I F (METR I K. EP. 0 ) AA1 »A 
IF(METRIK.EQ*1)AA1»A*47.88 
IF(IM2«EQ«1 *AND.METRIK.EQ*0)B81 “8*459.6 
IF(IM2.EQ.1*AND*METRIK.EQ.1)BB1»B/1.8 
IP(IM2.E0.2.AND.METfilK«EP#O)BBl-B 
IF(IM2.EQ*2*AND*METRIK.EQ«1 )B8l»B*2326*4 
WRITE(9,705)AA1,BB1 
Kl«lTT*2 
K2*K1+1 
CCS((M2,K1)«A 
CCS(lM2,K2)-B 
1101 CONTINUE 

READ(8,70l )KD, JD,TEST1 ,TEST2,TMPMXA 
1100 CONTINUE 
1000 CONTINUE 

REWIND (UNIT-8) 

GO TO 500 
300 CONTINUE 

WftlTE($ 708)MA 

708 FORMAT OH , 'MATERIAL NUMBER* ,3X, I5>3X* 'CANNOT BE FOUND**) 
REWIND (UNIT-8) 

GO TO 500 
500 CONTINUE 
400 CONTINUE 

REWIND (UNIT-8) 

702 F0RMAT(5X»8E10.0> 

703 FORMAT ( 1H1 , 1 0X, 1 1 HT A B L E S) 

CLOSE(UNIT-8,STATUS-'KEEP* ) 

RETURN 

END 
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SUBROUTINE 0ATA2(LBP) 

mM LmiN FILE (UNIT 71 

1 1 SSI# OT I IN, NBP, NEXT# METR I C# 

$ te^N&n]?|N^iN2 PFLA6,Tl IN,(NM01, * s, NKT(Nl^t), x E , j(NMB1), 

SaRACTEW^DE SCR f? 1 °>»HC1 (NNeiO> # HAIVl (NM91 0) # PR£S1 (Nt^lO) 

WRITE (9,666) 

666 FORMAT (INI ) 

100 CONTINUE 

1 0*0 

•»„„ 5EAO(7#700#END®1000)OESCRP, IBP 
700 F0RMAT(A72,I5> 

c aE ?£ ,*?!! £° ftAECT eoDY point NUMBER 
IP(IBP.EQ.LBP)GO TO 900 
30 CONTINUE 

_ REA0(7#701 )D1#D2*D3#D4 
70 POR^ T (2 X ,F6* 1 ,39X#E10.3,2X#E10.3,36X # I10.3) 

IP(D1.LT.0,O)GO TO 100 
GO TO 30 

900 CONTINUE 

1P<METRIC.£0.0)WRITE(9,730) IBP,D£SCRP 
750 FORMATdH , ’BODY POINT NUMBER * ’ IS. 5* At9 // in* ifiutfi *w 

^/iei?^ S 2A P T" S ! C) * 4X » (STU/LBM) »#6X* * OBP/$Q*FT>’,/) 
IF(METRIC.E0J)WRITE(9#830)IBP,DESCRP ^ ' 

330 FORMATdH ,*BODY POINT NUMBER * *, I5*5X*A72*// 10V itimpi ov 

901 

IOIOH 

0 READ LANMIN DATA 

REAp(7#70l)TM1(IC)#HC1(IC)#HAWl (IChPRESKlC) 

*4^1 ocif^ii;??g;'" t ‘ TE(9 * 75f 7tmi ( ,c> ' 

IF(METRIC*E0.0)GO TO 500 
HCK I O-HCI (1 0/4.8824 
HM1 ( I O-HAWI ( IC)/2*32456E3 
PRES1 ( I C)*PRES1 ( 1 0/47*88 
300 CONTINUE 

T51 FORMATdH #4(6X*E10.4)> 

IF(TM1 (lO.GE.O.O)GO TO 901 
REWIND (UNIT-7) 

GO TO 1001 

1000 CONTINUE 
WRITE (9#752)LBP 

1001 Snt?nue M # ' cannoT r,ND B0DY P0,NT ,f,9) 


c 

c 

c 

c 

c 

c 


SUBROUTINE DlSTdt* J1, 12, J2,D) 

sssai&Knr 8etween ™ to,nts ° ,ven 

I ■ SURFACE NO 
J ■ 1 OR 2 | END POINTS 


COMMON/PACT/XX< 10,2) ,YY< f 0,2) 
X1-XX<lt„l1> 

Y1-YY(I1,J1> 

X2"XX(I2,J2) 

Y2*YY<I2, J2) 

D»SQRT((X1-X2)«*2+(Y1*Y2)*«2> 

RETURN 

END 
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original c:, 

OF POOR QUALITY 1 


SUBROUT I ME HE ATN (T I ME , HC, HAW, PRES, I SV > 

C THIS ROUTINE DETERMINES FILM OOEFF I Cl ENT, ADIABATIC WALL EN1HALPY, 
C AND PRESSURE AS A FUNCTION OF TIME 
PARAMETER (NMi10«100) 

COMM0N/ENVIR/TM1 (NMB10),HC1 (NMB10),MAW1 (NM9lO),PRES1 (NMBIO) 
It-ISV 

100 CONTINUE 
12 * 11+1 

IP(TM1(I2).GT.TIME)G0 TO 90 
11 * 11+1 
GO TO 100 
SO CONTINUE 
ISV-11 

DT*TM1(I2)**TM1(I1) 

DINC*(TIME-TM1 (11 ) >/DT 

HC*HC1 ( II H(HC1 ( I21-HC1 (ID >»OINC 

HAW-HAW1 ( 1 1 )+CNAW1 ( I2J-HAW1 (ID )*DI NC 

PRES-PRES1 (ID+fPRESI < I2>*PRE$1 (II > )*DINC 

RETURN 

END 


SUBROUTINE HONEY 


C 

c 


c 


c 


c 


SUBROUTINE TO COMPUTE EQUIVALENT THERMAL CONDUCTIVITY* CAPACITY, 
AND MASS OF HEXAGONAL HONEYCOMB STRUCTURE 

COMMON/ GAP/T1-,T2,TH1 ,TH2,TH3,TM,P f H,M1 ,M2,M3,TOL*BET,SIG, 

$ XM,CAP1,CAP2,XK 
COMMDN/PRESS/PRES 
F 12-.1 


F13-.9 

SET GEOMETRIC PARAMETERS 
0‘*H«3.0/(2.0*SQRT(3.0)) 
CPFT2-2,0»SQRT(3.0)/(H»»2«3.0> 
WPFT2-CPFT2#3*0 
0WAL»0*2. 0/3.0 

VOL- (TH1 +TH2 ) +WPFT2# (TH«TH3*0WAL ) 

A1«(D/3.0*H/2,0)/2*0 

A2-A1 

A3»DWAL*TH 
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T3-(T1+T2>/2.0 
CON-1 .0E8 
CONK-CON *DWAL*TH3 
T30-T3 

DO 100 1-1,100 

CALL PR0P(T1 , PRES, Ml ,RH0l ,CP1,XK1 ,£P1 ) 
CALL PR0P(T2,PRES,M2*RH02,CP2,XK2,EP2) 
CALL PR0P(T3,PRES,M3,RH03,CP3,XK3,EP3) 
COMPUTE RADIANT INTERCHANGE FACTORS 
F1-( 1 .0/A1 )*(1 .O/EPt-T .0) 

F2- ( 1 »0/A3 ) * ( 1 .0/EP3-1 .0 ) 

F3-1 .0/ (Al *F13) 

A1F13-1 .0/(F1+F2+F3) 
F2»(1.0/A2)#(1.0/EP2-1 ,0) 
F3»1.0/(A1*F12) 


A1F12-1 .0/(F1+F2+F3) 
SET CONDUCTORS 


C1-4.0*TH1«5.0*DWAt*XK1/H 

C2»C1*XK2/XK1 

C3-2 . 0*XK3*TH3 #DWAL/TH 

XC1 «C1 *C0NK*C3/ (Cl #C0NK+C1 *C3+C0NK*C3> 

XC2-C2*C0NK^3/(C2*C0NK+C2^3+C0NK«C3) 

R1-2.0*A1F13*SIG*(T1«*2+T3#*2)*(T1+T3) 

R2-2.0*AlFl3*SIG*(T2*»2+T3**2)*(T1+t3) 

R3«2.0*AlF12*SlG*(Tl**2+T2**2)*(T1+T2) 

C ITERATE ON CELL WALL TEMPERATURE - T3 

T3N=(T1 *(XC1+R1 )+T2»(XC2+R2) )/(XC1+R1+XC2+R2) 

T3-( 1 .O-BET) *T3+BET*T3N 

TEST«ABS(T3-T30)/T3 

I F (TEST. LT. TOD GO TO 200 

T30-T3 

TT3-T3 

100 CONTINUE 
GO TO 300 
200 CONTINUE 

T1 2-ABS(T1**T2) 

T13«ABS(T1-T3) 

C COMPUTE TOTAL HEAT TRANSFER 



Qs(T1 2 # R3+T13 # (R2+XC2)) # WPFT2 
: COMPUTE CONDUCT ! V I TY, MASS* AND CAPACITANCE 
XK*0/T1 2 

XM»TN1 *RNOl +TN2 "RH02+RH03 *W PPT 2 *TH *TH3 *DW AL 
CAP! ■ ( V01/2.0 ) *RH01#CP1 
CAP2»( V0L/2.0 )*RH02»CP2 
300 CONTINUE 
RETURN 
END 
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SUBROUTINE INPQEQ 

C SUBROUTINE FOR INTERACTIVE INPUT OF DATA FOR EXITS OODE 
C INCLUDES INTERACTIVE INPUT OF STRUCTURES 

PARAMETER ( NMB 1 «20 # NNB2-6 , NA«3«3 # NAte4«6 # NMBO- 1 0 # NN©7 *1 00 ) 
COMMON/aAP/T1,T2,TH1,TH2,TH3,TH,P,N,Mt,MJ?,M3 # TOI.,BET,SIO,XM, 

$ CAP1,CAP2,XK 

COMMON/ I N I T/TSTART, TSTOP, T I MPT, DT I M, N&F, NEXT, METRIC, 

$ METRIK,METRIX,NSTP, IPFLAG,TINI (NMB1 ),SINKT(NM31 ),XFIJ(NMB1 ), 

$ MBP(NWH),IIN,IIN2 

OOMMON/T I ME/NNDS , CONV , CRAD, STAB, ISBF6, NCOS 
COMMON/LD/L S ( N^ 1 , NNB2 ) , XP ( NMSl , Nl^2 , NMB4 ) , MATS ( NM3 1 , Ntt? , ) , 

$ NS(NMBI) 

COMMON/P I CT/NN IS(NMB1 ,NMB2) 

C0MM0N/TITL2/ CHAR3 
C0MM0N/TITLE/CHAR2, CHARI ,PNAM1 ,FNAM3 
CHARACTER*20 CHAR(7),FNAM1 *FNAM2,FNAM3 
CHARACTER*! 0 CHAR3(NMB7),CHAR2(NI^6) 

CHARACTER*! 3 CHARI (NMB6) 

INTEGER ANSI , ANS2 , ANS4 , ANS5 , ANS6 , AN S7 , AN SB , ANS9 , AN SI 0, STftFlG 
DATA CHAR/ 

! ’SLAB », 

2 ’RADIATION GAP *, 

3 ’HONEY COIfc ’, 

4 ’CORRUGATED ♦, 

5 ’2 STANDOFF ', 

6 ’THIN SKIN », 

1 ’ABLATOR SUBLIMER ♦/ 

9 WRITE! I IN2,10) 

!0 FORMAT! !H ,»WHAT IS THE MINIVER INPUT DATA FILE NAME ?») 

READ! 1 1 N, 20, END° 1234) FN AM2 
20 FORMAT !A20) 

OPEN ( UN I T°7 , NAME°FN AM2 , TYPE 0 ’OLD’, ERR°9, RECORDS I2E°0O) 

22 WRITE! I IN2,23) 

23 FORMAT! !H ,»WHAT IS THE STRUCTURE FILE NAI€ V) 

READ! I IN,20,END°1234)FNAM3 

WRITE!! IN2,30) 

30 FORMAT! IH ,’WHAT IS THE NAME OF THE OUTPUT FILE ?’) 

READ! I IN,20,END°1234)FNAM1 

OPEN ( UN I T°9, NAME°FN AM! , TYPE 0 ’ NEW ’ , ERR°22, REOORDS I 2E° 1 32 ) 


C DEFAULT VALUES FOR CONTROL PARAMETERS 

DTIM°10.0 
STAB°2.0 
TOL-.OO! 

BET°0.5 

NEXT°20 

NSTP°3000 

IPFLA6-! 

METRIC-0 

METRIK-0 

METRIX-0 

C 

C SET INITIAL, FINAL, AND DELTA PRINT TIMES 
40 WRITE! I IN2,50) 

50 FORMAT! IH ,’WHAT IS THE INITIAL TIME(SEC) ?•) 
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60 

70 

60 

90 

too 

110 

120 

130 

140 


WRITE ! ! IN S ?;™?" 40 ' ' m ” ’ 234,TSTART 

SrHi i <SEC> V) 

f §; ®° • f mp? ’ Kmm mmouK 

FORMAT (120. 1 0) 

FORMAT! 1 10) 

IF!ANS1,NE.1NY)G0 TO 190 


ORIGINAL PAGE fg| 
Of Poor quality 


?•) 


V) 


160 

170 


180 

190 


200 

210 


220 

230 


240 

250 


260 

270 


278 


•>F4.1,» NEW value « n 


'#F3.1,» NEW VALUE * •) 


275 

277 


261 

282 


WRITE (I IN2.170)DTIM * ES£T °° N ™> L ™AMETE«S 

fORMRTUH .'RESOLUTION! DEFAULT ' 

1 3 1 30 ' ERR “ 1 60 » 6N0 ° 1 23 A ) A1 
IF4A1 .6T*,00001 

WRITE! I IN2, 190) STAB 
FORMAT! 1H ,* STABILITY i DEFAULT • 

R *AU(! Wn3O,ERR« 10 O,ENDM234)A2 
I F (A2.GT. , 00001 ) STA8«A2 
WRITE!! IN2,2lO)TOL 

ra“.*;:»*«K?gss5 DEfAuiT ■ , * F4 - s '’ ne “ *** * •> 

I F ( A3 .GT. . 00001 )T0L"A3 
WRITE!! IN2,230)BET 

FACT0R * DEFAULT * »,F3.1.' NEW VALUE « <) 
READ! I IN, 130,ERR°220,END B 1234)A4 "tw VALUE ) 

IF(A4.GT..OO0O1 )8ET»A4 

WRITE! I IN2,250)NEXT 

r m ^'T£*.V™ BE ™ EEN MRAMETER «*■<*•' DEFAULT - '.12, 

R £ A J ! 1 i Mf ( 0 ' 1 ERR “240 , END* 1 234 ) K 1 
IF(K1 ,GT.0)NEXT*K1 
WRITE (I IN2,270)NSTP 

NUKSER OP ITERATIONS. DEFAULT - '.14, 

?lfSi'i!!'if2Ll2?' 260 > ENO " ,25< >R* 

IF!K2.GT.0)NSTP*K2 
WRITE (I IN2,276) 

FORMAT!/, 

$ 1 6X, » ENGL I SH ( DEF AULT >»,5X,» METRIC*.//. 

$ X,*TEMPERATURE»,4X,«DEG F^IOX^DEG K*a/ 

$ 1X,;lENGTH»,9X,«INCHESM5X,»CM»,/, * 

1 JS* IS*f R ? r# * 9x s *& T n f , i ex# • joules* #/* 

IN EN “' SH <* *™, c *•» 

IF(ANS8.EQ.1HM)METRI01 
WRITE!) IN2, 282) 

FORMAT! 1H ,»D0 YOU WANT OUTPUT DATA IN ENGLISH OR METRIC ?') 


ooo o 


ORIGINAL PMfi Us 
OP POOR QUALITY 


283 

284 


280 

290 


i N i 2Q,ERR*281 ,END*1234)ANS8 
IP(ANS8.EQ.1HM)METRIK»1 
WRITEd IN2, 284) 

FORMATHH ,<DD YOU WANT INPUT DATA IN ENGLISH OR METRIC ?«> 
READ < I IN, 1 20, ERR*283 , END* 1 234 ) ANSB 
IF(ANS8.EQ.1HM)METRIX"1 
WRITE (I IN2,290) 

FORMAT ( 1H ,*00 YOU WANT ADDITIONAL PRINTOUT V) 

READ ( I IN, 1 20,ERR»280,END s, 1234)ANS7 
IF(AN$7.EQ.1HY)lPFLAG<a0 


,q END OF CONTROL PARAMETER LOOP 

150 CONTINUE 
300 CONTINUE 
310 WRITE (I IN2,320) 

320 '1 WHAT IS THE TOTAL NUMJER OF BODY POINTS V) 

READO IN,«,£RR-310,END»1234)f®P 
lF<NBP.GT.NfB1)WRITEdlN2,330) 

S!gt:K'toToo s 9 BOOY m - EXC6EDS dimens| onino') 

DO 1000 IB»1,NBP 

°340 EF C»NT?NUE CTUftE AN ° IN11 ’ IAL COND| TlONS FOR THE CURRENT BODY POINT 

I F dB*EQ. 1 ) WRITEd IN2,350) 

IF( IB.NE.1 )WRITE( I IN2,360) 

IS2SI5!!! »!S A I !? the next body pt. numjer V) 


330 


360 

350 


FORMATdH , * WHAT IS THE BODY POINT NUMBER*"? *V 


READ( I IN, #, ERR®340,END a 1234)MBP( IB) 

IFOB.E0.DG0 TO 370 

C ' F 5I? UCTUftE SAME AS F0R PREVIOUS B.P* USE SAME DATA 
390 WRITEd IN2,380)MBPdB),M3P( IB-1 ) 

FORMAT ( 1 H , • DOES DODY PT. »,I5,» HAVE THE SAME DATA* , 
$ * REQUIREMENTS AS BODY PT. ♦,!$.» ?*) 

READd IN*120,ERR«390,END»1234)ANS5 
IF(AN$5.EQ*1HY)GO TO 690 
CONTINUE 

RESET TIME OR CONTROL PARAMETERS ? 

TfS(Y) a RESET TIMING PARAMETERS 
TIME (T) » RESET TIMING PARAMETERS 

CONTROL (C) « RESET CONTROL PARAMETERS 
WRITEd IN2,420) 


380 


370 


410 

420 


$»pKeters , ?d Y0U WANT T ° RESET TIME 0R C0NTR0L 


READ( I IN, 1 20,ERR»41 0, END“1 234)ANS6 
IF(ANS6»EQ. 1HY)GO TO 40 
IF(ANS6.EQ. 1HT)GO TO 40 
IF(ANS6.EQ.1HC)GO TO 160 

C 4 , def, NE INITIAL TEMPERATURE DATA FOR BODY POINT 
430 WRITEd IN2,400)MBP(IB) 

400 t M! H »' WHAT ,S ™ E INITIAL TEMPERATURE OF BODY PT. ', 

READ (I I N, *, ERR“43 0, END® 1 234)T IN I < IB) 

I F (METR IX. EQ. 0)T I N I (IB>«TINI (IB) +4 59.6 
IF(METRIX.EQ. 1 )TINI (IB)°TINI (IB)*1 .8 
440 WRITEd IN2,450)MBP( IB) 
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ORIGINAL r/'.vi.; fc» 

OF POOR QUALITY 


‘'50 FORMAT (1H ,'WHAT IS THE SINK TEMPERATURE OF BODY FT. ', 

$ 19 ,' ?') 

READ ( 1 1 N, «, ERR-440, END" 1 234 ) S I NKT ( I B ) 

IF(METRIX.EQ.O)SINKT( IB)"SINKT( IBH499.B 
IF(METRIX.£0.1 )SINKT( IB)"SINKT( I0)*1 .8 
460 WRITE! I IN2,470)MBP(I8) 

470 FORMAT! 1H ,'WHAT IS THE VIEW FACTOR FOR BODY PT. ',19,' ?') 

READ! I IN,#,ERR n 460,END"1234)XFI J( IB) 

STRPLG-0 

C DEFINE STRUCTURE 

472 WRITE! I IN2,473)MBP( IB) 

473 FORMAT! 1H *'DOES THE STRUCTURE FOR BODY PT. ',19, 

$ » EXIST IN THE STRUCTURE PILE t») 

READ ( 1 1 N, 1 20 , ERR-47 2, END- 1 234 ) AN S9 
C OBTAIN STRUCTURE DATA FROM STRUCTURE FILE 
IF(ANS9.EQ.1HY)CALL STRUCT! f, IB) 

IP(ANS9.EQ.1HY)G0 TO 830 

474 WRITE! I IN2,475)MBP( IB) 

475 FORMAT! 1H ,'DO YOU WANT TO ADD THE STRUCTURE FOR BODY PT* ♦, 

$ 15,' TO THE STRUCTURE FILE ?') 

RE AD ( 1 1 N, 1 20 , ERR-47 4 , END- 1 23 4 ) AN SI 0 
I F ( ANSI 0 * EQ. 1 HY ) StRFLG* 1 
480 CONTINUE 

C DEFINE NUMBER OF LAYERS 
490 WRITE (I IN2,500)MBP( IB) 

500 FORMAT! 1H ,'HOW MANY LAYERS AT BODY PT. ',15,' 7') 

READ! I IN,#,ERR-490,£N0«1234)NS( IB) 

IF (NS! IB) »GT.NMB2)WRITEI I IN2,510) 

510 FORMAT! IX, 'ERROR — NUMBER OF LAYERS EXCEEDS ARRAY DIMENSIONING') 
IF(NS(IB).GT.NM62)G0 TO 480 
C LOOP 1 - NUMBER OF LAYERS 
DO 2000 KK-1 ,NS( IB) 

C DEFINE STRUCTURE TYPE AND DIMENSIONS FOR EACH LAYER 
520 WRITE! I IN2, 530) 

530 FORMAT!////, • STRUCTURE TYPE - - - NUMBER *,//, 


$ 

t 

SLAB 

1 


$ 

f 

RADIATION GAP 

2 


$ 

t 

HONEYCOMB 

3 

',/, 

s 

I 

CORRUGATED 

4 

*,/, 

$ 

t 

Z STANDOFF 

5 


I 

• 

THIN SKIN 

6 


$ 

i 

ABLATOR SUBLIMER 

7 

*,///) 


540 WRITE! I IN2,550)KK,WJP( IB) 

550 FORMAT! 1H ,»WHAT IS THE STRUCTURE TYPE NUMBER », 

$ 'FOR LAYER ',12,' OF BODY PT. *,I5,» ?') 

RE AD ( 1 1 N, ", ERR-540 , END- 1 234) LS ! I B, KK ) 

GO T0(560,570, 560,590, 600, 610,620), LS! IB, KK) 

560 WRITE! I IN2,630)KK,H3P( IB) 

READ! 1 1 N, *, ERR-560, END-1 234) MATS! IB,KK,1 ),XP( IB,KK,1 ) 

GO TO 640 
570 CONTINUE 

DO 3000 LLL-1,2 

650 WRITE! I IN2,660)LLL,KK,MBP( IB) 

READ!! IN, *,ERR-650,END»1234)MATS( IB,KK,LLL),XP( IB,KK,LLL) 
3000 CONTINUE 
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ORIGINAL PAUi ffc 
OF POOR QUALITY 


670 WRITE (I IN2,680)KK,NBP( 16) 

680 FORMAT (1H ,'WHAT IS THE STRUCTURE HEIGHT FOR LAYER ♦, 

$ 12*' OF BODY FT. »,I5,' V) 

READ(IIN,*,ERR«670,END*1234'XP<IB,KK,4> 

GO TO 640 
500 CONTINUE 

00 4000 LLL-1,3 

690 WRITEO IN2,660)LLL,KK,MBP( IS) 

REA0( I IN, «,ERR a 690,END B 1234)MATS( IB,KK*LLL),XP( IB*KK*LLL) 

4000 CONTINUE 

700 WRITE (I IN2,710)KK,MJP( 18) 

READ( I IN,*,ERR°700,END B 1234)XP( IB*KK*4)*XP( IB,KK*6) 

GO TO 640 
590 CONTINUE 

DO 4500 LLL-1,3 

720 WRITE ( I IN2,660)LLL*KK*MBP( IB) 

READ(IIN # * # ERR‘»720,END*»1234)MATS(IB,KK,LLL),XP(IB,KK # LLL) 

4500 CONTINUE 

730 WRITE ( I IN2,740)KK*h©P( 10) 

READ(IIN,*,ERR«730,END»1234)XP(IB*KK,4>*XP(IB*KK*5> 

GO TO 640 
600 CONTINUE: 

DO 5000 LLL-1 ,3 

750 WRlTEd IN2,660)LLL*KK*MBP(IB) 

READCI IN**,ERR»750*END-1234)MATS(IB,KK,LLL),XP<I , 3*KK,LLL) 

5000 CONTINUE 

760 WRITE(IIN2,770)KK,teP:iB) 

READ( I IN***ERR a 760,END 8 'i234) (XP( IB,KK*LLL+3),LLL*1 ,3) 

GO TO 640 
610 CONTINUE 

780 WRITEO !N2,630)KK,lteP(IB) 

READ ( 1 1 N, *, ERR® 7 80* END* 1234) MATS ( I0,KK,1 )*XP( IB,KK*4) 

GO TO 640 
620 CONTINUE 

790 WRITEO IN2,630)KK,hfeP( IB) 

READdlN,*,ERR®790,END®1234)MATSOB*KK*1),XPOB>KK*1) 

GO TO 640 * 

630 FORMATdH ,'WHAT IS THE MAT. IDENTIFIER AND THE MAT.*, 

$ * THICKNESS*,/,* FOR LAYER ',12,* OF BODY PT* *,15,* V) 

660 FORMAT ( ♦ WHAT IS THE MAT. IDENTIFIER AND THICKNESS OF MAT. *, 

$ 12,/*' FOR LAYER *,I2,» OF BODY PT. »,I5,» V) 

710 FORMATdH ,'WHAT IS THE STRUCTURE HEIGHT AND CELL DIMENSIONS** 

$ » OF LAYER ** 12,' OF BODY PT. »,I5*» 7') 

740 FORMATdH ,'WHAT IS THE STRUCTURE HEIGHT AND PITCH FOR LAYER », 
$ I2,» OF BODY PT. *,I5*» ?♦) 

770 FORMATdH ,'WHAT IS THE STRUCTURE HEIGHT* PITCH, AND FLANGE', 

$ ' WIDTH FOR LAYER »,I2*» OF BODY PT. »,I5,' ?») 

640 CONTINUE 

800 WR I TE C I IN2*665)KK,MBP( IB) 

665 FORMATdH , 'ARE THERE ANY CORRECTIONS FOR LAYER ', 

$ 12*' OF BODY POINT ',15,' ?») 

READ ( 1 1 N, 8 1 0, ERR® 800, END- 1 234 ) ANS2 
810 FORMAT (AD 

IF(ANS2.EQ.1HY)G0 TO 520 

2000 CONTINUE /* CONTINUE WITH NEXT LAYER 
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630 CONTINUE 
. IFOB.GT.I )GQ TO 89S 


ORIGINAL P/V,G % 
OF POOR QUALITY 


! “^N^mr-e^A^Up^IS 1 RH*!*- nu * es s<us£d by picture) 

6000 CONTINUf 1 ' m " ' 'Nf*’ -OAT'.TYPe- <01.0* .REOONOS I2E-132) 

R£AD(8,840)MNUM3 
IF(MNUM),EQ,0)GO TO 6000 
IF(MNUlf6 # LT.0)G0 TO 850 
BACKSPACE (UNIT-8) 

GO TO 6000 
CONTINUE 
REWIND (UNIT-8) 

CLOSE (UNIT-8* STATUS- ‘KEEP’) 


840 

850 


655 


910 

911 


860 

870 


IF(ANS9.E0.1NY)GO TO 911 
CONTINUE 

DO 910 INC1-1 # NM32 
DO 910 INC2-1 ,NMB4 

!r/!ll2. , 5‘S*?! XP<,ft » ,NC1 » lNC2J *XP(IB,INC1JNC2)/ti-. 
OONTlNUe ^' E9 ‘ nX, ’ <IB, ' NC1 ' INC2, * xp <l8, | NCI,INte)/k54/t2. 
CONTINUE 

DIS CAL A L V Pl'cTURfsjB) 0 ^^ 5 STRUCTUftE 0N SCREEN 
WRlTEd IN2,870)I©P(IB) 

PAhlii* < J i i . 


SI \l'L ! J H cSL1f n ^E “?? ECT 1 0NS «* body Pt. 


| N »61°»ERR*860,EN0»1234)ANS4 
IF(ANS4,EQ*1HY)GO TO 370 
C ADD STRUCTURE TO STRUCTURE FILE 

GO < TO R 02O* E9 ‘ 1 ,GAU STftUCT(2 * ,6) 

890 CONTINUE 

SINKT( IB)-SINKT(7b-1 > 

XFI J( IB?»XM J( IB-1 ) 

NS( IB)«NS( IB-1 ) 

DO 7000 KKKK-1 *NS( IB-1 ) 

LS( IB,KKKK)-LS( IB-1 *KKKK) 

DO 8000 LLLL-1 ,6 

TONT?N! <, r K,LUl> ’ XP<,B “ 1#KKKK#LLLL ^ 

DO 9000 MMNW»1 ,3 

tontinue KKKK#MMMM) " MATS( ,b ~ 1 » KKKK » MM ^ M) 

CONTINUE 

IF(ANS5.EQ.1HY)60 TO 911 
GO TO 830 
CONTINUE 

C0NTINUE t* CONTINUE WITH NEXT BODY POINT 


M5,» ?») 


8000 


9000 

7000 


820 

1000 
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WRITE mN2,800) 

880 PQRMAT<//,1X,» MODEL 
RETURN 

1234 CONTINUE 
STOP 
END 


QSISJNAL PACE tSI 
OR POOR QUALITY 





COMaETE GONE TO EXECUTE*) 


°* POOR QUALITY 


tm 


c 

c 


SUBROUTINE INTP<X,P,N,Y> 


SUB oadIi!£LI 0 / it?! ATE And BIVARIATE TABLES FOR PROPERTIES 
PARAMETER (NMaa»41,NMB9M1 # Nmi1»20*MB12»fl) rrwrtwnM 

CHfS^cSc' ^S C i!!® a * f N ?i J : 1 » l B S Vl (l ^ * ( «fel 1 1,1 Nte12) 

CHECK TO SEE IF TABLE IS BIVARIATE 

I F(CC(N.2)*LT* O.OJGO TO 2000 
MONOVARIATE INTERPOLATION - DATA STORED IN CC(N,J) 

J*CC(N, 1 ) 

J1 -J*2 
XLST»CC(N,2> 

XHST-CC(N.JI) 


500 


300 


400 


600 


700 


too 


IF(X.EO.XLST)GO TO 700 
IF(X.LT.XLST)G0 to ioo 


IP(X*GT.XH$T)GO TO 200 
Jf»4 

CONTINUE 

IF(CC(N* JTJ-X >300,600,400 

CONTINUE 

JT-JT+2 

GO TO 300 

CONTINUE 

N1*JT-2 

N2-N1+1 

N3-JT 

N4«N3+1 

GO TO 900 

CONTINUE 

NT«JT*1 

Y*CC(N> NT) 

GO TO 1000 

CONTINUE 

Y*CC(N,3) 

GO TO 1000 

CONTINUE 

N1*2 

N2*3 

N3-4 

N4*$ 


GO TO 900 
200 CONTINUE 
N1-2M-2 
N2*N1+1 
N3*2*J 
N4-N3+1 
906 CONTINUE 
C COMPUTE PROPERTY 

2 L ^i9S < K&t l4 irS C<N#N2> >/<C c <K | # N3>-CC(N # Nl > ) 
Y*fC (N *S2> +s L #(x -C c (N,NU) 

1000 CONTINUE 
GO TO 3000 
2000 CONTINUE 
C BIVARIATE T/fcLES 
C INDEPENDENT VARIABLES IN CC(N,J) 

C DEPENDENT VARIABLES IN BSV(N,JT, IL) 



N9*-CC(N,2)+2.0 

N0«4 

450 CONTINUE 


„ IF(CC<N.N8)~P)351,352,353 

351 CONTINUE 
IP<N8.GE,N9)G0 TO 375 
N8-N8+1 

00 TO 450 

352 CONTINUE 
GO TO 375 

353 CONTINUE 
N7-N8-1 
GO TO 560 

375 CONTINUE 
N7-N8 
PfAOO.O 


GO TO 561 

560 CONTINUE 

C FIND INCREMENT IN PRESSURE DIRECTION 
PfAO(P-CC(N,N7) )/(CC(N*N8)-CC(N*N7) ) 

561 CONTINUE 


550 


L8—CC(N,2H4.0 

L9— CC(N,2)+2«0+CC(N>1 ) 

CONTINUE 


IF(CC(N,L8)-X)751, 752,753 

751 CONTINUE 
IF{L8.GE.L9)G0 TO 775 
L8«L8+1 

GO TO 550 

752 CONTINUE 
GO TO 775 

753 CONTINUE 
L7-L8-1 
GO TO 760 

775 CONTINUE 
L7 e l8 


TFAOO.O 
GO TO 761 

760 CONTINUE 

C FIND INCREMENT IN TEMPERATURE DIRECTION 
TFAO (X-CC ( N, L7 ) ) / ( CC ( N, L8 ) -CC ( N. 17 ) ) 

761 CONTINUE 
IR-NB-2 
IL-N7-2 


JT-L7-N9 


ORIGINAL PACSiE J8 
Of POOR QUALITY 


4B-L8-N9 

F1-BSV(N.JT, IL)+PFAC«<BSV(N, JT, IR)-BSV(N, JT. II.)) 
0 FIND 2 PR0PERT7 B# IL>+PFAC * (BSV(N ' JB » *R)-BSV<N # JB. IL)) 

Y*F1+TFAC*(F2-F 1 ) 

3000 CONTINUE 
RETURN 
END 
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SUBROUTINE LOAD (MR, IS, Itl , IT2) 
SUBROUTINE TO LOAD GEOMETRIC AND 


MATERIAL IDENTIFICATION 

INTO COMMON GAR 
PARAMETER (Nfei-20 # N^2-6,NMB3-3,NW4-6 # N/©3-40> 

COMMON/ GAP/T 1 , T2 # X ( 6 ) < M ( 3 ) , TOL , BET, S I G * XM, CAP 1 , CAP2 * XK 

COMMON/ LD/L S(NMB1 ,NMB2)*XP(NMB1 ,NMB2,Nw4), MATS < NMB 1 * NMB2 , N^3 ) , 
$ NSINMBI ) 

COMMON/ ARA/T ( Nte5 ) ,TO ( NMB5 ) , C ( NMBS ) ,C0 ( NMB9 ) , I CD ( NMB9 ) , L ( NNBS *2 ) 
DT'29.0 
T1»TO( IT1 >+DT 
T2-t0< IT2J-DT 
LOAD MATERIALS 


DO 100 1*1 ,3 
M( I )*MATS(MP, IS, I ) 
100 CONTINUE 
C LOAD GEOMETRY 
DO 200 >1,6 
X(J)»XP(MP, IS, J) 
200 CONTINUE 



SUBROUTINE NODE ORIGINAL l’VW,K RJ 

C THIS SUBROUTINE SETS UP THE NODAL NETWORK ° F P00R W*m 

COM^N T /NDDE^/ ? # # TT^ tTS I 7^^ J < N^6 ^ 6 * 1 ° ’ 

COMMON/ IN IT/TSTART # TST0P«T(MPT. DTI Mi NBR NEXT Mpfbfis 

‘ n ^ ! J5* ?fwl* 1 PFL T 1 N 1 ‘ wei ’ * s 1 NKT * ' J » WB I > , 

COMMON/TAX/ TK(NMB2>,XX<NM35> 

SMKSI^IyIi^!^^ISS , 9° NV * CRAD » STAB, I SBFG, NCOS 

COMMON/P I CT/NN I S ( NW 1 , NMB2) 

ooSSSWhm ' ,aMM ' FNWM ' mm 

CHARACTERS UNIT1 (2) 

CHARACTERS UNIT2(2> 

CHARACTERS CHARI (Nl^6) 

CHARACTER*! 0 CHAR2(N*B6) 

?,' l S?i / !S TEft#20 c HAR<7) # ENAM1 # FNAM3 

DIMENSION XXX ( NM35 ) 

S^TA UNIT1/< IN.’,’ CM.*/ 
g{J{ UMIT2/* DEG F»,« DEG K»/ 

DATA CHAR/ 

1 ‘SLAB i. 

2 RADIATION GAP • ' 

l ’HONEY com »! 

i ’CORRUGATED t* 

l ’2 STANDOFF »' 

} ’THIN SKIN / 

7 |C»0 * ablator SUBLIMER »/ 

METROMETRIK+1 
DO 7000 J°1,NN 
l$T«LS(l,J) 

IF(IST.EQJ) GO TO 140 
IFUST.EQ.7) GO TO 1 40 
GO TO 120 
140 CONTINUE 

D ' V 1HKN|ix1(U*» AT0R ""° NX '’ UTEW 

MA«MATSd,J,1) 

CALL PROP (TT, PRES, MA, RO, CP,XK, EP) 

DX»SQRT(DTIM*2.0*XK/(R0«CP> ) 

NX-7HKNS/DX+1 
IF(NX+1.GE.NHfe5)GO TO 999 
NNIS(I,J)«NX 
TK(J)-THKNS/FLOAT(NX) 

mugs sswEraro--" ™ 

lOIOfl 

ICD(IC)»J 



oTS ' f . « 

QU/Mijy 


IU-IC 
ll-IOM 
l(IC,1)-IU 
L(IC,2)-IL 
TO(IU)-TlNIT 
TOdU-TlNfT 
TdU)-TO(IU) 

TdL)-TO(IL) 

XX(|I.)-XX(IU)+TK(J) 

130 CONTINUE 
00 TO 7000 
120 CONTINUE 

C ASSIGN NODE NUN3ERS, INITIAL TEMPERATURES, NODE NU^ERS FOR EACH 
C CONDUCTOR, NODE POSITIONS FOR ALL OTHER STRUCTURE TYPES 
IC-IOM 
ICDdCKl 
IU-IC 
IL-I0f1 
L(IC,1)-IU 
L(IC,2)-IL 
TO(IU)-TINIT 
TOdL)-TINIT 
TdU)-TO(IU) 

T(IL)-TOdL) 

XXdL)-XX(IU)+XPd,J,4) 

7000 CONTINUE 
NNOS-IL 
NCOS- 1C 
WftlTE(9,769) 

WRITE(9,768)MBP(I) 

IF(METRIK,EQ.Q)ATINIT-T!NIT-459,6 
IF(METRIK,tQ.t )ATINIT-TINIT/1.8 
I F (METR I K . EQ. 0 ) ATS I NK-TS I NK-45 9.6 
I F (METR I K. EQ* 1 ) ATS I NK-TS I NK/1 .6 

ro ^^kk-i } ncds ' UN 1 T2 <ME ^ C) * ATS 1 NK# UN 1 T2 ( METRC> ' p 1 J 

N0D1-L(KK,1) 

IF(METRIK.EQ.0)XXX(N0D1 )«XX(N0D1)»12. 

IP(METRlK.EQ.1 >XXX(N0D1 )-XX(N0Dl)*l2**2»54 
WRITE(9,770)N0D1,XXX(N0Dl),UNIT1 (METRO 
WRITE (9,77 DKK 
JST-ICO(KK) 

KST-LS(I,JST) 

WRITE(9,772)KST,CHAR(KST) 

0 WRITE OUT DESCRIPTION OF NETWORK 
DO 429 LL*1,3 
MA-MATS( I, J$T,LL) 

IF(MA,EQ.O)GO TO 429 
WRITE (9,773) LL,CHAR2(MA) 

429 OONTlNUE 

773 FORMkTOH ,20X,' MATERIAL »,I2,» - »,A10) 

N0D2-L(KK,2) 

IF(METRIK.EQ.0)XXX(N0D2)-XX(N0D2)*12. 

IF(METRIK.EQ«1 )XXX(N0D2)-XX(N0D2)*12.*2»54 
WR I TE ( 9, 774 ) N0D2, XXX ( N0D2 ) , UN I T1 ( ME TRC ) 
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137 CONTINUE 

721 FORMAT! 1H ,5X,»TINIT * »,F7.2,A6,4X,’TSINK ■ »,F7.2,A6,4X 
i *FIJ * ’,F12.3) 

768 FORMAT! IN ,28X,’B0DY POINT’. 19) 

769 FORMAT (1 HI, 2SX,' STRUCTURE DEFINITION’) 

770 FORMAT!//, IN ,19X,»N0DE NUW3ER • ’,19, 7X, 

$ ’DISTANCE FROM SURFACE ■ ’,E19.6,A4) 

771 FORMAT! IN ,20X, ’CONDUCTOR NUI^ER * ’,19) 

772 FORMAT!1M ,20X, ’STRUCTURE TYPE - ',I3,SX,A20) 

774 FORMAT! 1H ,1$X,’NODE NUMBER • ‘,I9,7X, 

i ’Distance from surface ■ ’,Ei9.e,A4) 

RETURN 

999 CONTINUE 

WRh'EO IN2,998) 

WRITE (9 998) 

998 FORMAT! IX, ’ERROR — THE NUMBER OF NODES EXCEEDS THE ARRAY ’ 
$ ’DIMENSIONING.*) 



SUBROUTINE PICTUR( I IN3,MP) F P00ii W»MU 

SUBROUTINE 1HATS PRINTS A PICTURE OP THE STRUCTURE AT A BODY POINT 
PARAMETER <NMB1"20 # NMB2"6 # NWB3"3,NMB4«6,NMBa«10 # NMB7«100) 

COMMON/ LP/LS(NMB1,NMB2),XP(NMB! ,NMB2,Nro4),MATS(NMB!,NMB2,NM33), 

$ NS(NMBI) 

COMMON/ 1 N I T/TSTART* TSTOP. T I MPT, DT I M, MSP, NEXT, METRIC, 
t METRIK,METRIX,NSTP, IPFLAG*TINI (NMB1 >,SINKT(NM30,XFI KNMB1 >, 

$ MBP(NMB1 ), I IN, I IN2 
COMMON/P I CT/NN IS(NMB1 ,NMB2) 

COMMON/TITLE/CNAR2M, CHARI ,FNAM1 ,PNAM3 
COMMON/T ITL2/CHAR3 
CHARACTERS UNIT(2> 

CHARACTEM20 CHAR(7),FNAM1 ,FNAM3 

Character*! o char2 <nmb7 ) , chars < nmB7 > ,ch ar2M<nmbs ) 

CHARACTER*! 3 CHARI (NMB6) 

DIMENSION 2XP(NMB1 ,NMB2,M©4) 

INTEGER ANSI ,ANS2,ANS4,AN$9 
DATA UNIT/* IN.*,* CM.*/ 

NAME OF EACH STRUCTURE TYPE 
DATA CHAR/ 


! 'SLAG 

2 ‘RADIATION GAP 

3 'HONEY CO« 

4 'OORRUGATED », 

9 *2 STANDOFF ', 

6 'THIN SKIN *, 

7 'ABLATOR SUBLIMER '/ 

C CONVERT UNITS OF MAT DIMENSIONS FOR PICTURE 
DO 300 INC1-1,NMB? 

DO 300 INC2*1 ,NMB4 

If <METRIK.EQ.0)2 vo<MP, INC!, INC2)*XP(MP, I NCI, INC2>*!2. 
IFCMETRIK.EQ.I )2XH(MP, INC! , INC2)-XP(MP, INC!, I NC2) *12* *2. 54 
300 CONTINUE 

METRC-METRIK+I 
I F C I IN3.EQ.9)G0 TO 3 

C IF PICTURE DISPLAYED TO SCREEN! NODES NOT INCLUDED) 

DO 2 I KJ“! ,NMS7 
CHAR2( I KJ ) *CHAR3 ( I KJ ) 

2 CONTINUE 
GO TO ! 

3 CONTINUE 

C IF PICTURE PRINTED TO OUTPUT FILE(NODES INaUDED) 

DO 4 IKJ«1 ,NMB6 
CH AR2 U KJ ) *CH AR2M ( I K J ) 

4 CONTINUE 
1 CONTINUE 

C CREATE THE PICTURE 
IJK-1 

WRITE!! IN3,6!S)MBPCMP) 

C TOP LAYER BOUNDARY 


I F < I IN3.EQ*9)WRITE(I IN3,620) 

IFI I IN3.EQ.g)WRITE(IIN3,720)IJK 
I JKHJK+! 

C LOOP I - NUMBER OF LAYERS FOR THIS BODY POINT 
C J - LAYER NUMBER 
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I 


(NODES AVAILABLE) 
(NODES NOT AVAILABLE) 


0 ME* - BODY POINT NUMBER 

C 1 1 N3 * 9 D I sa AY TO SCREEN 

C IIN3 « 9 PRINT TO OUTPUT FILE 
DO 700 d*1,NS(MP) 

C SLAB 

IF(LS(^J),EQ.1 .AND. I IN3*E0»9)WRITE(I IN3,021)GHAR2(MAT8(MP, J,1 )), 
i CHAR(LS(MP, J)),ZXP(MP, J,1 ),UNIT(METRC) 

IF(LS(MP, Jl.EIJ.I ,ANO. I INJ.EQ.fOOO TO 00 
C ABLATOR SUBLIMER 

IF(LS(MP, J) ,E0,7.AND. I IN3.£Q,9)WRITfc( I 1 N3#02t )CHAR2(MAT$(MP, J,l)), 

IP(LS(MP,J).EQ,7»AND.I IN3.EQ.9)GQ TO 100 
C RADIATION GAP 

IF(LS(MP,J > .EQ.2)WRITE(IIN3,622)2XP(MP,J,1) # UNIT(METRC). 
!21^?i MATS ! MP ' J » 1 ) 1 ^ CLSCMP # J > ) ,, 2XP (MP, J, 4 ) ,i UN I T (METRO , 
$ZXP(MP.J,2),UNIT(MiTRC),0HAR2(MATS MP,J,2 ) 9 

C HONEY OOf« 

IF(LS<MP,J).EQ.3)WRITE(IIN3,623)ZXP<MP,J,1),UNIT(M£TRC), 

$ZXP(MP,J,4),U.ilT(METRC),ZXP(MP,J,2> UNIT(METRC), 

$ CHAR2(MATS(MP,J,2>) 

C CORRUGATED 

,N3 ^ 624>2XP(M ^ J * , >4UNIT(MEtRC> # 
$CHAR2(MATS(MP,J,1>) # CHAR2(MATS(MP # J,3)),CHAft(LS(MP.J)>/ 
JZXP(MP,J,4),UNIT(METRC),ZXP(MP.J,2) UNIT (METRO) 

$ CHAR2(MATS(MP* J.2) ) ' 

C 2 STANDOFF 

IF(LS(MP,J).E0.5)WRIT£(IIN3,625)2XP(MP # J # 1),UNIT(METRC). 
$CHAR2(MATS(MP f J, 1 ) ),CHAR2(MATS(MP # J,3) >,CHAR(LS(MP. J) > I 
$2XP(MP # J,4).U^IT(METRC),2XP(MP,j.2) UNIT(METRC) 

$ CHAR2(MATS(MP # J,2)> 

C THIN SKIN 

IP(LS(MP,J).EQ.6)WRITE(IIN3,626)CHAR2(MATS(MP,J,1)), 

$ CHAR(t$(MP,J)),ZXP(MP,J,4),UNIT(METRC) 

200 CONTINUE 
C BOTTOM LAYER BOUNDARY 

IF( I IN3.EQ,5)WRITE(I IN3.620) 

I F( I IN3.EQ.9)WRITE( I IN3.720) I JK 
UK-IJK+1 
GO TO 700 
100 CONTINUE 

C SLAB / ABLATOR SUBLIMER (CONTINUED) 

NX*NNIS(MP»J)-1 
IF(NX.LE.O)G0 TO 11 
NX02»NX/2+1 
DO 10 K"*1»NX 

IF(K,EQ,1 ,AND.K,LT.NX02)WRITE(I IN3.B00) UK 
IF(K.GT.1.AND.K.LT.NX02)WRITE(IIN3,801)IJK 
IP(K,EQ.NX02)WRITE( I IN3.802) I JK,CHAR2(MATS(MP # J.1 ) ), 

$ CHAR(LS(MP, J)),2XP(MP, J,1 ) # UNIT(METRC) 
IF(K.GT.NX02.AND.K.LT.NX)WRITE( I IN3.801 ) I JK 
IF(K*GT.NX02.AND.K.EQ.NX)WRITE(I IN3.803) I JK 
IJK-IJK+1 

10 CONTINUE 

11 CONTINUE 


ORIGINAL PAM M 
OP POOR QUALITV 
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IF(NX,EQ.O)WfilTE(l IN3,621>CHAR2<MATS<MP,4 # in # 0F P 

S CHAR(U(MP,J)) # ZXP<MP,J # 1),UNIT(ME , mC) 

00 TO 200 
700 CONTINUE 

51? £°K! A l <tH1 ' ,TH,S ,s CONFIGURATION FOR BODY PT.M9,///) 

020 F0RMAT(1X,60(*»*MX, §(♦-»)) ' 

021 FORMAT (66X#* 1',/, 

$ 31X,AlQ # 3X,A2O,P8.0,A4,/, 

S OOXf • I ') 

622 F0RMAT<18X,F8*6,A4,1X,A1O,2SX,MV, 

S 1X,60(»-<>9X,<M,/, 

$ 66X, *!«,/, 

$ 44X,A2O,F0.6,A4,/, 

$ 60X,'I«J/, 

$ 1X,6Q(*-S3X,‘IS/, 

4 I 18X,P0.6,A4,1X,A1O,23X«MO 
62J FORMATO0X, F8.6,A4, IX, Alt, 2SX, •!*,/, 

$ 1X#0O<«-*)5X,*I',/, 

J ' I I I I I »#36X # M«,/ # 

$ * I I I II t.36X, *!♦,/* 


ORIGINAL PAG!'; ki 
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IX, 60M-S3X, 

18X,F8.6,A4,1X,A10,25X,M») 


S36X/M,/* 

S36X,* I**/# 

S1X,A10,3X,A20,P8*6,A4,/, 
»,36X, *!«,/, 

S36X M» / 


624 PORMAT(18X,P8.6,A4,1X,A1O,20X, »!',/, 


1X,60(‘-»>SX,»I',/, 

( V V V V 
' V V V V V V V 

• V V V V V V V 
» v V V V V V 

* V V V 
1X,60(*-*)5X # 'IV, 


»,3ex,;is/, 

*,56X,M%/, 


*,1X,A10 f 3X,A20,F8.6,A4,/, 
V »,36X, •!»,/, 

V'*36X,»I',/, 


* IA,OU\ I ' a / $ 

$ 10X,F8.6,A4,1X,A1O,2SX,«IM 
625 FORMAT(t0X,F8.6,A4,1X,AlO,25X, * I • ,/, 

S 1X # 60( »-*)5X # • 

$ ' Z2ZZ22 Utm *,36X,*IV# 

{ 2 2 S36X/IV, 

{ ; 172111 ZZ2ZZZS55X, 

$ IX, 60(*-»>5X, <!»,/, ' • 

$ 18X,F0*6,A4,1X,A1 0,25X,* I*) 

525 FORMAT131X,A10,3X,A20,F8.6,A4> 

J20 F0RMAT(1X,3(<**),I2,*. OSJ2< »•»);, 

000 P0ftMAT(4X* 12,* . 0*,37X,»I») 

001 F0RMAT<4X,I2,»* 0»,37X,S > 

52? O»,22X,A10,3X,A20,F8.6,A4> 

003 F0RMAT(4X,I2,». 0«,37X,»I») 



0 

c 

/* 


e 

c 

c 

c 

c 


SUBROUT I NE PROF(T1 , P, MAT, RHO, CP, XK* £p) 

UNITS ARE BTU.FT.SEC.OrIiBm' ' * 

TABLES ARE S f TY- SP* HT. # CONDUCT I V I f T * EM I S S I V I TV 

IN THAT ORDE& AnD REPEATED ' 

Tl *TEMP* 

MAT-MATERIAL NUMBER 
RHODENS ITT 
OP -SPECIFIC HEAT 
XC -CONDUCTIVITY 
EP -EMI SSI V ITT 

MDEN-(MAf-1)#4+1 

MSCP^MDEN+I 

MOON*MSCP+1 

MEP-MOON+1 

CALI. INTP(T1,P,MDEN,RHO) 

CALL INTP(T1,P,MSCP,CP) 

CALL I NTP(T 1 , P, MOON, XK ) 

CALL INTP(T1,P,MEP,EP) 

RETURN 

END 


ORIGffll/UL pmi IM 
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OJlBINAl Rhi,,; ft 
OF POOR QUALITY 


SUBROUTINE RQAR 

C SUBROUTINE COMPUTES EQUIVALENT THERMAL CONDUCTANCE THROUGH 
C RAOlAOION GAP 

|TH2,TH3,TH,P*M,M1 ,M2,M3,TQL,BIT,SIG, 

* XM|CAP1#CAr2|XK 
COMM0N/PRESS/PRES 
Ttl-Tt 
TT2"T2 
TAO-T1 
T80*T2 

DO 100 1*1,100 

C FIND PROPERTIES OF UPPER AND LOWER SURFACES 
CALL PROPCrTI , PRES, Ml ,RH 01 ,CP1 ,XK1 ,EP1 ) 

CALL PR0Pnt2,PRES,M2,fiH02,CP2,XK2,EP2) 

F1*1 #Q/£P1 
F2-1 *0/EP2 
SFH .0/(F1+F2*1 *0) 

YK1-XK1/TH1 

YK2*XK2/TH2 

YK3»SIG*SF#(TAO*#2+TBO**2)#(TAO+TBO) 

C COMPUTE INTERIOR SURFACE TEMPERATURE OF UPPER AND LOWER SURFACE 
TA*( (T1 «YK 1 +TB0*YK3 )/{YK1 +YK3 ) >«SET+< 1 .0-BET)*TAO 
T&-C <T2*YK2+TA0*YK3)/(YK2+YK3> )«GET+( 1 .0-B£T)*TBO 
TEST1*A6S((TA-TA0)AA0> 

TEST2»ABS( (TB-TBO) ABO) 

C CHECK FOR CONVERGENCE 

IF (TEST1 . LT * TOL . AhD .TEST2 ♦ LT* TOL ) GO TO 200 

TT1»(T1+TA)/2.0 

TT2-(T2+TB)/2.0 

TAO*TA 

TBO*TB 

100 CONTINUE 
GO TO 300 
200 CONTINUE 

C COMPUTE EQUIVALENT CONDUCTANCE 

XK-YK1 «YK2*YK3/(YK1 «YK2+YK1 *YK3+YK2*YK3) 

XM«RH0l*TH1+RH02*TH2 
CAP1«RH01*TH1*CP1 
CAP2-RH02*TH2*CP2 
300 CONTINUE 
RETURN 
END 
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OHWIIW, P/V-J; rr.s 

OF POOR QUALITY 

SUBROUTINE SRIPF(NN) 

SUBROUTINE TO FIND RADIATION INTERCHANGE FACTORS 

N&K M ME^ Tl£S ' GE0MEtR,C V,EW ffACT0RS » Aft ^S UNING THE 

COMM0N/SF/AR(1O),ERP(lD) # f (10i10KA$F(f0.l0) 

Jjlf^NSION ffi(10),XJ(10J,XJN<10J,RHQ(10) 

TQL* • 00 i 

BETA-. 5 
EMPOW-1 000.0 
N-NN 

DO 100 1-1 ,N 

RI-FLOATO) 

EB( I ) -EMPOWER I 
RHOd)-I.O-EPP(l) 

XJ(|)«EB(I) 

100 CONTINUE 

C ITERATE ON RADIOSITY.XJ 
DO 500 M-1,50 
TESTM-1 .OE-8 
DO 200 J»1,N 
SUMJF*0.0 

P1«EPP(J)/(1.0-RHO(J)*F(J # J))#EB(J) 

F2-RHOU)/(1.O-RH0(J)»F(j;j)) 

DO 300 K«1,N 
IFU.EQ.KJGO TO 300 
SUMJ F-SUMJ F+X J (K } #F ( J . K ) 

CONTINUE 

1 •°- BE ™)*XJ ( J)4BETA*(F1+F2«SUMJF) 
TEST»ABS(XJ(J)-XJN(J))/XJ(J) 

I F (TEST . GT . TESTMITESTM-TEST 
XJ(J)»XJN(J) 

CONTINUE 

I F (TESTM. LT. TOL ) GO TO 600 
CONTINUE 
CONTINUE 

XU?!? NET exchAnse B v RADIOS ITY DIFFEP rv »CE 

M F” BY DIVISION BY BLACK BODY EMISSIVE POWER 

DO 900 J»iJn 
ASF( I, J)*0.0 
IF(I.EQ.J)GO TO 900 

CONTINUE 
RETURN 
END 


300 


200 

500 

600 


900 

800 
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subroutine stand 

o“Tst/K “r! PUIVALENT “ NOu CTm,MA$S, CAPACITANCE 
COMMON/FACT/XX ( 1 0, 2 ) , YV ( 1 0,2 ) 

f!nMM"\w/ce/46/ t.?T« 


WMWN/rACT/XX( 10*2) ,YY( 10,2) 

H2-TH/2.0 
P2-P/2*0 
CONK-1 ,0£B 
T3-(T1+T2)/2*0 
V0L-TH1+TH2+(2.0%fTH)#TH3/P 
C SET COORCINAT6S OF INTERIOR TO COMPUTE VIEW FACTORS 
DO 100 1*1*4 
XT-O.0 
YT-0.0 

0O 200 >1,2 

I F ( I . EQ. 1 . AND. J ♦ EO. 1 )YT*TH 
IF(I.EQ*1*AN0.J.EQ.2)XT*P 
IF(I,£Q,2«AND*J.EQ,2)XT-P 
I F( I . fcp*3.AND» J.EQ* 1 )XT*P 
IF<I.EQ*3.AND,J.E0.2)YT*TH 
IF(I.£Q*4»AND. J*EQ»2)YT-TH 
XX(I, J)»XT 
YY(I,J)-YT 
200 CONTINUE 
100 CONTINUE 

C OOMPUTE INTERIOR VIEW FACTORS 
CALL VFACI4) 

DO 1000 1-1,100 
T30-T3 


» cf>1 *XKt ,EPP( 1 ) ) 
2*K ES# ^ 2# ? 02 » Cp 2*XK2,EPP(2) ) 
^4^0P(T3jPRES, M 3,RH03,CP3, x K3,EPP(3)> 

IFCUNE.DGO TO 1001 
C GET RADIATION INTERCHANGE FACTORS 
CALL SRIPPC4) 

1001 CONTINUE 


C COMPUTE CONDUCTION PATH VALUE 
C1A*XK1«TH1/P2 
C1B-C0NK«TH3/2.0 
C1C»XK3«TH3/<2.0«H2> 

C1»C1A«C1B*C1C/(C1A*C1B+C1A«C1C+C1B*C1C) 

DIS*P2“(H+TH3)/2,0 

C3A-XK1-TH1/DIS 

C3B-00NK* (H+7H3/2.0 ) 

C3C-XK3 *TH3/ ( 2 . 0 *H2 ) 

C3-C3A*C3B*C3C/ ( C3A*C3B+C3A*C3C+C3B*C3C ) 

C2C-C3C 

C2B-C3B 


C2A*C1A«XK2/XK1 

C2-C2A*C2B»C2C/(C2A«C2B+C2A*C2C*C2B#C2C) 

C4A-C1A«XK2/XK1 
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C46-C10 

C40C1C 

C4-C4A*C4S*C4C/(C4A#C4B+C4A«C4C+C4S*C4C) 

C COMPUTE RADIATION PATH VALUES 

R1-ASP(f,4>»SI0mi#*2+T3*#2>*(THT3> 

R2»ASF( 1 ,3 J *S I0*(T1 #*2+T5*«2> *(T1 +T3 ) 
R3-ASP(4,2)4g|6«(T3##2+T2«*'2)*(T3+T2) 

R4- ASP ( 3,2 ) *S I0*(T3**2+T2«*2> * (T3*T2> 

R5 *» ASP ( 1 , 2 ) *S I B * ( T 1 **2+T2 ## 2) * (T1 +T2 ) 

C FIND NEW STANDOFF TEMPERATURE 

T3N*»(TI *(R1+R2+CHC3)+T2*(C2+R3+C4+R4) )/ 

$ ( R1 +R2+R3+R4+C1 +C2+ C3+C4 ) 

T3»( 1 .0-BET ) «T3+BET*T3 N 
TEST b ABS(T3-T30)/T3 
IF(TEST.LT.TOL)GO TO 2000 
T30°T3 

1000 CONTINUE 
2000 CONTINUE 

C FIND MASS, CAPACITORS, AND EQUIVALENT CONDUCTIVITY 
XM°TH1 *RH01 +TH2#RH02+RH03*(2.0*H+TH ) *TH3/P 
CAP1»XM/2.0*CP1 
CAP2-XM/2.0*CP2 
T12»ABS(T1-T2) 

T13«AB5(T1~T3> 

Q*(T12#R5+T13 # (C2+C4+R3+R4) )/P 

XK-Q/T12 

RETURN 

END 


ORIGINAL PACE H, 
OP POOR QUALITY 
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c 

c 


to 

20 


2*8SSffj* 

SUBROUTINE STRUCT<M,N> QUALITY 

£*552!*!!!! ™ AT HAN|)L£ s structure file 
6 T 2A2*i?SiS 0 ^S!R STfiUCTUR6S 0R drying OlO structure 

1 N I T/TST ART * TSTOP, T I MPT* OT I M* MBP* NEXT* METR I C 

S *™N«0™!nJ 7?N2' ,PfLW 'T |NI(N ® ,, > 5lNKT<we,, .^ | J(NWI), 

OO MMON /T ITLE/0HAR2, CHARI ,FNAM1 #FNAM3 

CHARACTERED CHAR2(NMB6) 

CHARACTERS CHARI (N&B6) 

CHARACTERED FNAM1*FNAM3 

Character « so labeli,label2 

IFLAG--9999 

’OLDSRecORDS IZE-132) 

IF(M*EQ.2)G0 TO 500 

^mnu iSSgaSdo 1 " STRU °™ E F,LE 

F REAdI f IN, «# ERRH oftNO-l 234)ND^ NU * ER F0R B0DV "• »*> 

c LOCATE STRUCTURE BY STRUCTURE NUMBER 
33 READ (10* 40, END-9000 )NA 
40 FORMAT (13) 

IF(NA*£0.ND-)GO TO 150 
IF(NA.Ep.lFLAG)GO TO 9000 
GO TO 33 

C 9000 wf?E(MN2 F 90 F m)NS ITH<XJT STRUCTURE NUH3ER 

9001 REW fN0 < COnItMO) L£ 10 F,ND $TRUCTUR£ NU ^ ER M*> 

GO TO 10 
CONTINUE 

BACKSPACE (UNIT-10) 

° “ T rm(™wnmsIn A )!«,m SIWD sffiuCTuM mm « 

F0RMAT(I3*5X*3(I5,5X)) 

R£AD(10,60)LABEL1,LABEL2 
FORMAT (5X*AB0*/ *5X*A80) 

"JITf <1 I IN2,70>NA, LABEL! »LABEL2 
FORMAT!/#! OX# 'STRUCTURE NUMBER 
00 200 l*1*NS(N) 

^1x“^N, 0 ^fl?:5^?:l«T ,LStN,l, ’ <MATS(N * l ' J, ' J ■ , ' N3, ' 

«RMAT<10X,.J,3 | 5 ,«e 19 .7) 

GO TO 1000 


130 


55 

60 

TO 


210 

200 


M5,/*1X,A80,/*1X*A80) 


to sTOucTuREf ,le 
510 WRlTEd IN2,520)MBP(N) 

520 RPArwT ST^UCJTURE NUUfcER FOR BODY PT. »,I5> 
„ .r READ i ,,N * # # E RR*510,END-l234)ND * 

C SEARCH THROUGH STRUCTURE FILE 
531 DO 550 IK*1*1000 
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original mm rsi 


READ ( 1 0,40, EN0*56O) N0 

C CHECK TO SEE IE STRUCTURE NUMBER ALREADY EXISTS 
IF(ND,£Q.NB)WRIT£( I IN2,330)ND 

530 FORMAT! 1H ,♦ STRUCTURE NUMBER *,I5,» ALREADY EXISTS.*) 
IF!N0.EQ.nS)R£WINO (UNIT-10) 

IFfND.£<?.N8)G0 TO 510 
C CHECK FOR END OF FILE 

IF(NB.£Q.IFLAG)GO TO 360 

550 CONTINUE 
GO TO 331 

560 BACKSPACE (UNIT-10) 

C ADD NEW STRUCTURE DATA 
N4*NM84 
N3-NMB3 


OF POOR QUALITY 


WRlTE(10,570)ND,NS(N),N3,N4 
370 FORMAT! I5,3X,3!I5,5X)) 

WRITE!! IN2,580)lfcP(N> 

580 FORMAT! 1H ,*GIVE A TWO LINE DESCRIPTION OF THE STRUCTURE*. 
$ < FOR BODY PT. M5> 

READ ( 1 1 N, 5 90 ) LABEL 1 , LF6EL2 
590 PORMAT!A80*/,A80) 

WRITE(10,600)LABEL1,LABEL2 
600 FORMAT(5X,A80,/,5X,A80> 

DO 700 l-1,NS(N) 


WRITE(10,610)LS(N, I ),(MATS(N, I 
610 FORMAT! 10X, 15,3 I5,6E1 5.7) 

700 CONTINUE 

WRITE (10, 800) I FLAG 
800 FORMAT! 15) 

1000 CONTINUE 


,J>,J«1 # N3),(XP(N, l,J),J-1,N4) 


CLOSE (UNIT*10, STATUS* *KEEP* ) 
RETURN 

1234 CONTINUE 
STOP 
END 
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ORIGINAL PAGE Ef 
OP POOR QUAUTV 


SUBROUTINE SUBPR(X,N,Y> 

C SUBROUTINE TO- RETURN TEMPERATURE OP SUBLIMATION AND HEAT OP 
C SUBLIMATION^, GIVEN PRESSURE, X, 

C 

C N ■ M RETURN TEMPERATURE 

C N * 2 RETURN PRESSURE 

C X * PRESSURE 

C 

PARAMETER (NM39-41) 

COMMON/CSUB/CCS ( 2, NMB9 ) 

J*COS(N,1 ) 

J1-JK2 

XLST*CCS(N,2) 

XH$T-CCS(N,J1> 

IF(X.EQ.XL$T)GO TO 700 
IF(X*LT.XLST)GO TO 100 
IF(X*GT*XH$T)GO TO 200 
JT-4 

500 CONTINUE 

C SEARCH INDEPENDENT VARIABLE 
IP(CC$<N,JT>*X)300,600,400 
300 CONTINUE 

C GO BACK AND CHECK ANOTHER 
JT*JT+2 
GO TO 500 
400 CONTINUE 

C X LIES BETWEEN CCS(N,Nl> AND CCS(N,N3) 

N1 • JT*2 
N2-NH1 
N3*JT 
N4»N3+1 
GO TO 900 
600 CONTINUE 

C X EQUAL TO A INDEPENDENT VARIABLE 
NT-JT+1 
Y“CC$(N,NT) 

GO TO 1000 
700 CONTINUE 

C X EQUAL TO LOWEST INDEPENDENT VARIABLE 
Y«CCS(N,3) 

GO TO 1000 
100 CONTINUE 

C X LESS THAN LOWEST INDEPENDENT VARl^LE, EXTRAPOLATE 
N1“2 
N2»3 
N3*»4 
N4*5 

GO TO 900 
200 CONTINUE 

C X GREATER THAN HIGHEST INDEPENDENT VARIABLE, EXTRAPOLATE 
N1*2«J-2 
N2-N1+1 
N3»2*J 
N4-N3+1 
900 CONTINUE 
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C FIND SLOPE AND INTERPOLATE 

SL*{CCS(N # N4)-CCS{N,N2))/(CeS(N,N3)-C0S(N # NU> 
r»CCS ( N, N2 ) +SL * (X-CCS (N»NH) 

1000 CONTINUE 
RETURN. 

END 


ORIGINS 

OF POOR 



OliKali vi' it-. t * !» | 

OF POOR QUALITY 


C 

C 


SUBROUTINE THINS 

SUBROUTINE TO SET CAP I C I T ANCE .MASS, AND CONDUCTOR OF INFINITELY 
CONDUCT I NO OR THERMALLY THIN- PL ATE 

COMM0N/6AP/T1 ,T2,1W ,1H2,TH3,TN,P,H,M1 ,M2 # M3 # T0L|fiET,SI0 # XM, 
$ CAP1 »CAP2»XK 
COMM0N/PRESS/PRES 
T*(T1+T2)/2.0 

CALL PROPIT, PRES # M1,RO,CP,XK,EP> 

CAP1 •R0*CP*TH/2.0 

CAP2»CAP1 

XM*RO*TH 

XK-1.0E10 

RETURN 

END 
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ORIGINAL. PAGE (3 
OF POOR QUALITY 


360 


SUBROUTINE TMSTEPIDTSM, I > 

SUBROUTINE TO COMPUTE STABLE TIME STEP 

pffilKIi 1 ? J ^ 1 * 2 °' NM03«*3, Nl^4«6 # NI^SMO) 
jJJJJWT 1 WE/NNDS # CONV, CRAOi ST/©, 1 SBEO* n65s 

®^JJ^N/ARA/T(NMl9) jTOINMBS) #C(N fes) iCO(NNBS) * ICD(NWBS) i /wnws oi 
N*’ . . XP< 

DT$M a 1 .0E30 

GENERAL HEAT BALANCE NODE 
DO 379 J-1 # NND$ 

IF(J.NE*1)GO TO 360 
SURFACE NODE 
C1-CONV+CRAD 
C2-CD(1) 

GO TO 381 
CONTINUE 
IF(J.NE.NNDS)GO TO 370 
C LAST NODE 

C1«CD<NCDS> 

C2*»0.0 
GO TO 381 
370 CONTINUE 
C GENERAL NODE 
JM1 *J~1 
CI-CD(JMI) 

C2-CDU) 

381 CONTINUE 

C IF ADJACENT CONDUCTORS ARE THIN SKIN, SKIP 
IF(C1.GT.1.0E9) GO TO 379 
IF(C2.GT.1,0E9) 60 TO 379 
ST£ST»C(J)/((C1+C2)*STAB) 

I F ( STEST. LT. DTSM)DTSM=$TEST 
CONTINUE 

thin skin algorithm 
IF(ISBFG.Ep.O)GO TO 382 
DO 387 KAP*1 ,NCDS 
JJ°ICD(KAP) 

JN*LS(I,JJ) 

IF(JN» NE.6)G0 TO 387 
N1-L(KAP,1) 

N2*L(KAP,2) 

KP1*KAP+1 
KMl *KAP-1 

IFIKAP.EQ.I )G0 TO 388 
I F (KAP. EQ. NCOS ) GO TO 389 
C GENERAL THIN SKIN NODE 

GO E T0 390 N1 )+C(N2> )/( (CD(KM1 >*H»CKP1 ) )*STAB) 

388 OQNTINUE 
C SURFACE NODE 

GO E TO*390 N1 )+C<N2) ( CONV+CRAO+CD < KP 1 ) )«STAB) 

389 CONTINUE 

C ADIABATIC BACK SIDE 

STEST* (C(N1 )+C(N2) )/(CD(KM1 )*ST/©) 


379 
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390 CONTINUE 

307 CO(!nNUE ,LT ‘° T5M,DTSM " STEST 
3B2 CONTINUE 
RETURN 
END 
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ORIGINAL PAGE 19 

SUBROUTINE VPAC(NN) . QUALlTf 

THEORY OF CROSSED STRINGS (PLANAR 2-P) 

COMMDN/P ACT/XX ( 1 0, 2 ) , YY ( 1 0, 2 ) 

COMMON/ SF/AR( 10), EPR( ( 0) , F ( 1 0, 1 0) , ASF ( 1 0* 1 0) 

N B NN 

DO 100 l«1,N 
SUMP«0.0 
C FIND AREA OF SURFACE I 

CALL DISK 1,1 , 1,2, AR( I )) 

DO 200 >1,N 

C FIND LENGTHS OF CROSSED AND UNCROSSED STRINGS 
CALL DISK 1,1 ,J,1 ,D1 1 ) 

CALL DIST(I,1,J,2,D12> 

CALL DISK!, 2, J, 1,021) 

CALL DISK 1,2, J,2,D22) 

C FIND WHICH ARE CROSSED 

51- D11+D22 

52- D12+D21 
A1-S1 
A2-S2 

IF($1.GT.S2)G0 TO 201 

A1*S2 

A2-S1 

201 CONTINUE 

F(l,J)-0.0 
IF( I .EQ* J)GO TO 200 
F(l, J)“(A1-A2)/(2#0*AR( I )) 

C SUM OF VIEW FACTORS SHOULD EQUAL ONE FOR ENCLOSURE 
$UMF*SUMF+F(I,J) 

200 CONTINUE 

100 CONTINUE 

RETURN 
END 


l 
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